File No. S360-28 
Form C24-3337-3 



OS 



lliiil 

t>->v»fo..-:»ii. .■'■■:•-■ 



Systems Reference Library 



K'..H : *• ?| 



IBM System/3B0 Operating System 
Report Program Generator 
Language 



This reference publication contains fundamentals 
of RPG programming and language specifications for 
the IBM System/360 Operating System, Report Pro- 
gram Generator. 

Also included is the job setup information for ex- 
ecuting RPG. 




Preface 



The System/360 Operating System, Report 
Program Generator (RPG) is a problem- 
oriented language designed to provide users 
with an efficient, easy-to-use technique 
for generating programs that can: 

1. Obtain data records from single or 
multiple input files, 

2. Perform calculations on data taken 
from input records or RPG literals, 

3. Write reports, 

4. Use Table Lookup, 

5. Exit to a user's subroutine written 
in a language other than RPG, 

6. Branch within the calculations, 

7. Sequence check input records, 

8. Maintain files. 

RPG uses a set of specification sheets 
on which the user makes entries. The 
forms are simple, and the headings on the 
sheets are largely self-explanatory. 

Although many reports use only one 
input file, RPG can combine data from 
multiple input files to create a report. 
The output may be a single report, or it 
may be several reports created simulta- 
neously on different devices. 

For information on the operating 
system that is beyond the purpose of this 
publication, refer to the following publi- 
cations : 



IBM System/360 Operating System, System 
Programmer's Guide (Form C28-6550) 

IBM System/360 Operating System, Assembler 
(E) Programmer's Guide (Form C2 8-6595) 

IBM System/360 Operating System, Concepts 
and Facilities (Form C28-6535) 

IBM System/360 Operating System, Supervisor 

and Data Management Services (Form C2 8- 
_6l 

IBM System/360 Operating System, Job 
Control Language (Form C28-6539) 

IBM System/360 Operating System, Linkage 
Editor (Form C28-6538) 

IBM System/360 Operating System, Supervisor 
and Data Management Macro-Instructions 
(Form C28-6647) 

IBM System/360 Operating System, System 
Generation (Form C28-6554) 

IBM System/360 Operating System, Storage 
Estimates (Form C28-6551) 



For titles and abstracts of associated 
publications, see the IBM System/360 
Bibliography (Form A22-6822) . 
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SYSTEM/360 OPERATING SYSTEM REPORT PROGRAM 
GENERATOR 



RPG operates under control of the System/ 
360 Operating System (referred to as the 
operating system) . The operating system 
provides the RPG compiler with input and 
output services. Object programs generated 
by; the RPG compiler also operate under 
operating system control and depend on it 
for similar services. 

RPG supports the minimum configuration 
required by the operating system,. The dec- 
imal arithmetic feature is required for RPG. 



function) are combined with the user input- 
data files, and both are processed through 
the system to produce the desired reports 
or output files. 



USING RPG 

The preparation of a report by means of 

RPG consists of the general operations illus' 

trated in Figure 1 and described below: 



COMPATIBILITY OF SYSTEM/360 OPERATING SYSTEM 

The RPG source language is upward compa- 
tible. The operating system Report Program 
Generator can compile a Model 20, a Basic 
Programming Support, Tape Operating System, 
Disk Operating System, or Basic Operating 
System source program that adheres to its 
language specifications. 

The File Description Specifications Sheet 
of the operating system RPG may require 
additional information (record length and 
overflow indicators) . 

The control card of a Model 20 or 
Basic Programming Support program must be 
modified before the object program can be 
generated by the operating system RPG. 

When a BOS, TOS , or DOS RPG program is 
used to retrieve records from a file with 
direct organization, it may be necessary to 
alter the method of obtaining the addresses 
of these records. 

The operating system RPG does not use the 
Address Output Option of the Basic or Disk 
Operating System Disk Sort/Merge to re- 
trieve records. 



FUNCTION OF RPG 

When RPG is used, the IBM System/360 actu- 
ally performs the separate functions : 

1. program-generating, and 

2. data processing. 

In the first function, program specifi- 
cations defined by the user produce 
machine-language instructions. Storage 
areas are automatically assigned; constants 
or other reference factors are included; 
and linkages to routines for computations 
for input/output operations, and for other 
functions are produced. 

In the second function, the machine- 
language instructions (created in the first 
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The programmer must evaluate the re- 
port requirements to determine the 
format of the input files and the ap- 
pearance of the finished report. 

For example, he must know what 
fields in the input files are to be 
used, what kind of calculations are to 
take place, the location of the data 
in the output records, and the number 
and the kind of totals that must be 
accumulated. More specific informa- 
tion regarding the evaluation of re- 
port requirements is described in 
Problem Definition . 

After the programmer has evaluated the 
requirements of the report, he pro- 
vides the same information to the RPG 
program. 

He must describe his input (record 
layout, fields used, etc.) by making 
entries on an Input Specifications 
sheet . 

He must state what processing is to 
be done (add, subtract, multiply) by 
entries on a Calculation Specifica- 
tions sheet. 

He must state how the finished re- 
port is to look (printing position, 
carriage control, etc.) by making 
entries in the Output -Format Specifica- 
tions sheet. 

He must describe all files used by 
the object program (input files, out- 
put files, table files, etc.) by mak- 
ing entries on the File Description 
and File Extension Specifications 
sheets . 

After the specifications have been 
written on the appropriate forms, 
cards are card punched with the 
data from the forms . 

These punched cards (called a source 
deck) are combined with the processor 
control card and the operating system 
Job Control Statements . The source 
deck and the control cards are sup- 
plied to an input device and are proc- 
essed under control of the operating 
system. At the end of this step 
(known as a compilation step ) , a 
program capable of preparing the re- 
port specified by the programmer has 
been produced. This program (known as 
an object module ) is processed by the 
link edit step to create a loadable 
program. This program (known as the 
load module) contains all of the com- 
puter instructions and linkages to 
the control system necessary to pre- 
pare the desired report. 
The input files can then be read into 
the system, and processing of the pro- 
gram will begin. This is known as the 
execution step . 



At the end of the execution step, the 
report has been prepared and any other 
functions, such as file updating, are com- 
pleted. Through facilities provided by 
the operating system, the object module 
can be retained for later runs without 
recompilation . 



MACHINE FEATURES REQUIRED 



Source Program Compilation 

1. 32,768 main storage bytes 

2. One of the following for input: 

IBM 2540 Card Read-Punch 

IBM 2501 Card Reader 

IBM 2520 Card Read-Punch 

IBM 1442 Card Read-Punch 

IBM 2400 Series Magnetic Tape Unit 

3. One of the following for output of ob- 
ject program: 

IBM 2540 Card Read-Punch 

IBM 2520 Card Read -Punch 

IBM 1442 Card Read -Punch 

IBM 2400 Series Magnetic Tape Unit 

IBM 2311 Disk Storage Drive 

4. One IBM 2311 Disk Storage Drive for 
system residence 

5 . One of the following for system utility 
files: 

IBM 2400 Series Magnetic Tape Unit 

(Three) 

Data Convert Feature (Required only 

if 7-track tape is used) 

IBM 2311 Disk Storage Drive with 

three files 

6. Standard and Decimal Instruction Sets 

7 . The minimum machine configuration re- 
quired by the operating system 



Object Module Execution 

1. 32,768 main storage bytes 

2. I/O units as requested by the specifi- 
cations 

3. Standard and Decimal Instruction Sets 

4. Systems Residence only — IBM 2311 Disk 
Storage Drive 

5 . The minimum machine configuration re- 
quired by the operating system 



ADDITIONAL MACHINE FEATURES SUPPORTED 



Source Program Compilation 

1. 65,536; 131,072; 262,144; or 524, 288 
main storage bytes 



One of the following for listings: 3. Two additional IBM 2311 Disk Storage 
IBM 1443 Printer Drives for utility files 

IBM 1403 Printer 

IBM 1404 Printer (continuous forms Object Module Execution 
operation only) 

One IBM 2400 Series Magnetic Tape 1. 65,536; 131,072; 262,144 or 524,288 
Unit (9 track) main storage bytes 
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FUNDAMENTALS OF RPG PROGRAMMING 



This section introduces some of the basic 
RPG functions. These functions are con- 
sidered basic because they are probably 
used in the most typical reports produced 
by RPG and because they depend on a single 
sequential input file only. They are also 
related to the functions commonly performed 
with conventional punched-card equipment. 

Although RPG programs can process files 
contained on magnetic tape or direct-access 
storage devices, only card-input files are 
used for the introduction to RPG. Program- 
mers familiar with the basic concepts of 
RPG may omit this section and concentrate 
on the detailed specification descriptions 
contained in the manual under RPG Specifi - 
cation Sheets . 

Because of the numerous fields on the 
six specifications sheets, it may appear 
that writing RPG specifications is a diffi- 
cult task. However, few programs use all 
the specifications, and some may require 
entries on only one or two lines of the 
sheets . 

At the end of the description of basic 
RPG functions, a simple file-to-file list- 
ing application is used to illustrate how 
the specifications sheets are related. 

Functions Described 

Fifteen of the most basic RPG functions are 
described in this section: 

1. Describing a record and its fields to 
the system 

2. Adding and subtracting (cross-footing) 



3. Detail printing 

4. Establishing control fields 

5 . Total calculations 

6. Detail and total printing 

7 . Group printing 

8. Group indication 

9 . Overflow printing 
10 . Summary punching 

11. Testing for zero, plus and minus 
balance 

12. Using field indicators 

13. Comparing 

14. Multiplying and dividing 

15. Sequence checking 



DESCRIBING A RECORD AND ITS FIELDS TO THE 
SYSTEM 

Entries on the Input Specifications sheet 
describe the data records and the fields to 
be read into the system. 

Problem 

A detail labor file contains card records, 
as shown in Figure 2. Three fields (A, B, 
and C) are to be read from each card into 
main storage. Field A is contained in col- 
umns 46-50; Field B is contained in col- 
umns 56-60; and Field C is contained in 
columns 66-70 of each record. The file that 
contains the records and the fields within 
each record are described on the Input Spec- 
ifications sheet. 

Each card that contains fields A, B, and 
C is identified by two distinct attributes. 
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Figure 2. Input Card for Detail Labor File 



They must contain a digit 5 in column 35 
and no 11 -zone in column 80 . When these 
two conditions exist in the card record, 
the record is valid (that is, it contains 
fields A, B, and C) . 



Specifications 

Figure 3 shows the input specifications 
required. The numbers in the following 
list refer to items circled in Figure 3. 

1. Each file of cards must be given a 
name. In this example the input deck 
of cards represents a detail labor 
file. A file name can be used to de- 
scribe only one file. 

2. If several types of cards exist in a 
file, each card must be identified by 
its particular card code. In. this 
example, each card read by the system 
must contain a 5 -punch in column 35 
and no 11-zone (minus) punch in col- 
umn 80 . These identifying codes are 
placed in the fields called Record 
Identification Codes (columns 21-41 of 
the form) . These fields provide for 
three identifying codes; however, more 
codes can be indicated, as illustrated 
later in the manual. 

In this example the card codes are 
specified by writing a 5 in C haracter 



and a 35 in Position for the first code; 
and by writing an 80 in Position and a 
minus in Character , and an N in Not for 
the second code. The field on the form 
called C/Z/D indicates how the card 
column containing the card code is to 
be compared: D = digit portion only, 
Z = zone portion only, or C = all por- 
tions of the card column. 

After all the identification codes 
are established, the programmer assigns 
a two-digit number (from 01 to 99) to 
the card type identified. This code, 
known as a Resulting Indicator (columns 
19-20 of the form) , is used to refer to 
this specific card type on other speci- 
fications sheets. Using this code 
reduces the number of entries required 
on other specifications forms, as will 
be seen later. 

If the input card is to be selected in- 
to a stacker (other than the one into 
which it would normally be selected) , 
the stacker number is written in Stacker 
Select (column 42) . 

Each field of the card to be read must 
be defined as shown on the lines follow- 
ing the record-identification line. 
The specifications shown in this ex- 
ample locate the data from the input 
record and place it in fields A, B and 
C (FLDA, FLDB, and FLDC) in three 
separate locations in core storage. 
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Figure 3. Input Specifications Sheet 
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Once the card columns of the field 
have been specified and the appropriate 
field name has been defined for the 
field, other references to this field 
are made by using its field name rath- 
er than writing down the specific card 
columns each time. 

Although the input illustrated in 
Figure 3 is simplified, the entries 
shown will cause the contents of fields 
A, B, and C from the card to be read 
into the system during the processing 
of the object module. Calculations 
to be made from the input data are 
written on the Calculation Specifica- 
tions sheet. 



ADDITION AND SUBTRACTION 



Problem 

In this problem, fields A, B, and C from 
the previous example are used to calculate 
a new field (Field D) . The calculation 
A + B - C = D is to be performed. 



Specifications 

Figure 4 shows the required entries, using 
the fields from the previous example. The 
form required for this problem is the Cal- 
culation Specifications sheet. 

The first line of the form tells the 
object program to add the contents of FLDB 
to the contents of FLDA and place the re- 
sult in FLDD. 

1. The 14 in Indicators defines the card 
type for which the calculations are to 
be performed as assigned by the Input 
Specifications sheet. 

2 . The card columns for FLDA and FLDB 
were defined by entries on the input 
forms and need not be specified again. 

3. The result field FLDD is defined for 
the program by merely writing the name 
FLDD in Result Field (columns 43-48) 
and indicating in Field Length (columns 
49-51) the number of positions that 
must be set aside for this field in the 
object program. Just as in the case of 
FLDA and FLDB, which were defined on 
the input form, the name FLDD can now 
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Figure 4. Calculation Specifications Sheet 



be used in other calculation opera- 
tions or used in defining output speci- 
fications . 

NOTE: The result of A + B is not 
placed back into FLDA. To do this 
would destroy the original contents 
of FLDA. In this example it is nec- 
essary to save the original value of 
FLDA so that it can be printed on an 
output report. 

The second line in Figure 4 causes the 
object module to subtract the contents of 
FLDC from the result just previously ob- 
tained in FLDD and to store the new result 
back into FLDD. 

Decimal Symbol Location 

In this example there were no decimal posi- 
tions in any of the three fields . In opera- 
tions involving numbers containing decimal 
positions, the number of decimal positions 
in each of the fields is frequently not the 
same. When the number of decimal positions 
is not the same in both factors in an arith- 
metic operation, shifting the factors to 
align the decimal point is usually required. 

RPG automatically shifts the factors. 
The programmer must indicate the number of 
decimal positions contained in each factor 
used in calculations, and the number of 
decimal positions required in the result. 
If a field is to have arithmetic operations 
performed upon it, the decimal positions 
must be specified. A zero is coded for no 
decimal positions (See Figure 4) . Assume 
that the fields in Figure 3 have decimal 
positions as indicated under Decimal Posi- 
tions (Column 52) in the following example: 
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A set of values for these fields might 
appear to the program as follows: 
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FIELD 

A 
B 
C 



DECIMAL 
POSITION 


2 
3 



CONTAINED 
IN CARDS 

00126 
01123 
04264 



ACTUAL 
VALUE 

126. 
11.23 
4.264 



The programmer must indicate the number 
of decimal positions required in the result. 

The calculation A + B - C = D, would 
result in the values being shifted like this; 

126.000 = A 
+11.230 = B 
137.230 
- 4.264 = C 
132.966 = D 

(Result field has three decimal positions) . 

The result 132.966 is stored as the value 
of the field called D. Entering the decimal 
positions on the input sheet and the calcu- 
lation sheet enables the factors to be 
shifted automatically. 



DETAIL PRINTING 

Detail printing is the printing of informa- 
tion obtained from each record as it is 
read. 



Problem 

This problem illustrates how input fields 
A, B, and C, and the calculated result, 
field D, can be specified for listing. 



Specifications 

Figure 5 shows the output specifications 
required. The numbers in the following list 
refer to items circled in Figure 5. 

1. The output listing must be assigned 
its own specific file name. In this 
example it has been called DAILYRPT. 

The D in Type Q/D/T indicates that 
the line being printed is a detail 
line. That is, it contains informa- 
tion from the record just read. (The 
other possible entries, H and T, in- 
dicating heading lines and total lines, 
are described later.) 

The 2 in Space After provides a 
double-spaced listing. (There is one 
blank line after each printed line.) 

2 . The 14 in Output Indicators identifies 
the input record type present when 
detail printing occurs. 
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3. Each field to be printed must be speci- 
fied under the heading Field Name . 
The Z in Zero Suppress means that zeros 
to the left of significant digits are 
not printed. (For example, the value 
stored in FLDA (00126) is printed as 
126.) 

The printing positions for data to 
be printed on the output report are 
specified in End Position In Output 
Record (columns 40-43) . The program- 
mer has to indicate only the last 
printing position of each field (low- 
order or rightmost position) . The 
length of each field has already been 
established for the program as part of 
the input specification or established 
in the Result Field of the calculations 
specifications . 

When preparing a simple listing such as 
the one in this example, the programmer 
would probably select printing positions of 
the output unit based upon the number of 
positions in each field plus a number of 
positions as spaces between fields. 

More elaborate reports are laid out on a 
printer form in advance of the program writ- 
ing function. Usually this indicates both 
the location on the form where data is to 



be printed and the source of the data (the 
card columns of the input data or the names 
of data fields developed in the program) . 
This is normally a function of job defini- 
tion, a subject that is discussed later 
under Problem Definition . 

Figures 3, 4 and 5 illustrate how to 
read data into the system, how calculations 
can be performed upon the data, and how the 
original data and the data developed in the 
program can be printed. The examples so 
far have shown the items necessary to pre- 
pare a report. A significant item not yet 
described is how to specify a control field 



CONTROL FIELDS 

A "control field" is a field containing in- 
formation to be compared from record to 
record . A control break occurs when the 
information in the control field changes . 
A control level establishes the relative 
importance of the control fields. 



Problem 

This example shows how to specify three 
levels of control. 



Specifications 

Figure 6 shows the input data from Figure 3 
with the addition of the appropriate con- 
trol data and employee name (the items in- 
side the circle) . In this example there 
are three levels of totals: the lowest 
level is employee number (EMPNO) , the next 
is department (DEPT) , and the highest level 
is division (DIVSON) . These levels are 
designated LI, L2, and L3, respectively. 
(Because as many as nine levels of totals 
are possible in RPG, the common terms of 
minor , intermediate , and major totals are 
inadequate.) 

To designate a control field and to es- 
tablish a level of control, enter the card 
columns of the field in Field Location , 
enter an appropriate name in Field Name , 
and enter the correct control level (LI, 
L2, . . . L9) in Control Level . 

In the example (Figures 2 and 6) the 
sequence of the control fields (left to 
right) in the card is the| same as the se- 
quence of the control levels. The control 
fields, however, could have been in any 
location on the card, and the specifica- 
tions for them could have been in any se- 
quence on the form as illustrated in Fig- 
ure 7 . 



The reading of the employee-name field 
(fifth line of the sheet in Figure 6) is 
also included as part of this example, but 
it is not related to controls . It is shown 
here to indicate another aspect of the 
decimal -posit ions column of the Input Speci- 
ficiations sheet. When a numeric field is 
specified in Field Location , any digit (0 
to 9) placed in Decimal Positions causes 
zone punches in all positions of the field 
(except the units position) to be removed. 

Therefore, when an alphabetic field is 
specified, Decimal Positions should be left 
blank to permit the zone punches of the 
alphabetic field to be read into the system. 

TOTAL CALCULATIONS 

Total calculations are performed after a 
specified control break has occurred. 
When a control break occurs, special opera- 
tions are normally performed before proc- 
essing the record that caused the control 
break. These operations are called "total 
operations" . 

Problem 

This example illustrates how totals can be 
accumulated at each control level . 
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Figure 6. Specifying Control Levels on the Input Sheet 
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Figure 7. Example of Control Field Sequence 



Specifications 

Figure 8 contains the data shown in Figure 
4. The additional information for this ex- 
ample is circled. During processing of the 
object module, lines 1 and 2 cause the 



operation A + B - C = D. The third line 
adds the result, contained in FLDD, from 
each detail card to a field called TOTE. 
Therefore, TOTE is the accumulated amount 
for each employee group. The first three 
specification lines are performed in the 
object module each time a detail card is 
read (see Figure 8, Indicator 14) . 

When the level-1 (LI) control break occurs 
(a card from the next employee group has 
been sensed) , specification-line 4 adds the 
total of TOTE accumulated from each detail 
card into a field called TOTF. TOTF is used 
to accumulate the total for each employee 
group for each department. 

When the level- 2 control break occurs, 
TOTF is added into TOTG. 

When the level-3 control break occurs, 
TOTG (which represents the accumulated 
amounts for each division) is added into 
FINTOT. 

Accumulating totals at each control- 
break level is normally done when the cor- 
responding totals are printed on an output 
report. 

NOTE: In System/360 RPG — as in IBM punched 
card equipment — a control break at one level 
forces control breaks for all lower levels. 

DETAIL AND TOTAL PRINTING 

Problem 

This example shows the specifications 
necessary to print the three controlling 
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fields, the name, the accumulated amount 

in field D, the three accumulated totals, 

and the final total at the end of the 
object-module report. i 



Specifications 

Figure 9 illustrates the specifications 
required for the report i shown in Figure 
10. The following numbejrs refer to the 
items circled in Figure |9; 

! 

1. This information is| similar to the 
specifications in the previous example 
in Figure 5. 

2. The data fields DIVSON, DEPT, EMPNO, 
NAME, and FLDD are |specified for 
printing. 

3. The specifications to print the total 
for the first contrlol level shown on 
lines 7 and 8 are: i 

a. The T in H/D/T | (column 15) indi- 
cates that the line is a total 
line. A total line is an operation 



caused by a control break. The 
input record that causes the con- 
trol break cannot contribute data 
to the accumulated totals or to 
the total line. Totals accumulated 
before a control break are printed. 

b. A 3 in Space After (column 18) pro- 
vides two blank lines after each 
printed line to make the report 
easier to read. 

c. The LI in Output Indicators (col- 
umns 24-25) indicates that the line 
is to be printed only on a level-1 
control break. 

d. The field to be printed (TOTE) is 
indicated under Field Name (columns 
32-37) . 

e. The Z in Zero Suppress (column 38) 
indicates that zeros to the left of 
significant digits are not to be 
printed. 

f. The B in Blank After (column 39) 
causes the core-storage positions 
containing field TOTE to be set to 
zeros after the total is printed. 
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last card of a file has been sensed. 
This indicator is used to cause the 
final total to be printed. 



GROUP PRINTING 

In group-printing operations, only one line 
is printed for each group of detail cards. 
This line usually contains the control 
fields and the totals of the quantity fields. 

An example of a group-printed report is 
shown in Figure 11. 

The detail-printed report specifications 
in Figure 9 could be altered to provide a 
group-printed report as illustrated by the 
specifications in Figure 12. 

The differences between Figures 9 and 
12 that provide for the two types of reports 
are: 

1. The detail line specified in Figure 9 
(line 01) has been changed to a total 
line conditioned on an Ll break (Figure 
12, line 01) . 

2. The total line in Figure 9 (line 07) 
has been combined with the first total 
line 01 of Figure 12. 

3. The spacing on lines 09 and 11 of 
Figure 9 have been changed from 3 
to 1 space-after in Figure 12. 



GROUP INDICATION 

In group-indication operations, each detail 
card is processed; however, only the con- 
trol fields that identify the specific 
detail card are printed. An example of a 
group-indication report is illustrated in 
Figure 13. In this example the employee 
name and number are printed for each con- 
trol change. The fields, division and 
department, are printed only when there is 
a control change for the division and 
department fields, respectively. 



Figure 10. Detail-Printed Report 

This is done so the total for one 
group is not added to the total of 
the previous group. 

The specifications to print the 
second and third control levels 
are essentially the same as those 
for the first level. 
4. The specifications for printing the 

final total contain the code LR (Last 
Record) in Output Indicators (columns 
24-25) . The indicator LR is turned on 
automatically by the program when the 
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Figure 12. Specifying a 
Report 



Group-Printed 



Figure 14 illustrates jhow the detail- 
printed report specifications in Figure 9 
could be altered to specify a group- 
indicated report. \ 



OVERFLOW PRINTING j 

Overflow printing, another function used 
in preparing reports, can be performed in 
RPG. Overflow is the sensing of channel 
12 in the printer carriage control tape. 



Problem 

This example shows the additional specifi- 
cations necessary to print eight column 
headings at the top of each printed form. 
A heading-line is a line that contains 
constants or in formation j from an input 
record, or it may be a constant defined on 
the Output-Format Specifications sheet. 



Specifications 

Figure 15 illustrates the output specifi- 
cations required for this operation. The 
numbers in the following list refer to the 



circled items in Figure 15. The Filename 
(columns 7-14) of DAILYRPT is the same; 
adding overflow headings does not change 
it. 

1. On the first line of the form, the H in 
H/D/T (column 15) indicates that the 
line to be printed is the heading line. 

The 2 in Space After (column 18) pro- 
vides a blank line after each printed 
line. 

The 01 in Skip Before (columns 19-20) 
causes the form to skip to channel 01 
in the carriage control tape. This 
positions the form for printing of the 
overflow heading line. 
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Figure 13. Example of a Group-Indicated 
Report 
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Figure 14. Specifying a Group-Indicated 
Report 

The OF in Output Indicators (columns 
24-25) causes the heading line to be 
printed each time there is a form over- 
flow on the printer. 

On the second line of the form, the 
letters OR indicate a second condition 



can cause the heading line to print. 
The second condition, indicated by IP 
(first page) in Output Indicators , 
causes the heading line to be printed 
on the first page. This condition is 
necessary to print the heading on the 
first page of the report because the 
overflow condition does not occur until 
after the first page of the report has 
been printed. 
2. The entries on lines 3-10 of Figure 15 
specify the actual information or con- 
stants to be printed on the report. 
The actual information is contained 
within apostrophe symbols. 



SUMMARY PUNCHING 



Problem 

Using an IBM 1442, punch a summary total 
of FLDD for each department together with 
the appropriate department and division 
numbers. 

Specifications 

A blank card must be merged behind each 
department group before the processing of 
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Figure 15. Printing Heading Lines 
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the object module is executed. Therefore 
the input file is a combined file; that is, 
a file containing cards read into the sys- 
tem and cards used for punching. The blank 
card is specified on the Input Specifica- 
tions form as illustrated in Figure 16, 
line 09. 

All other records in the file must con- 
tain punches in the card! column used in 
the record identification specification 
for the blank card. 

Figure 17 illustrates: the Calculation 
Specifications for the sjummary punching 
operation. 

Line 04 is processed when the blank card 
is read. It causes accumulation of the 
level-2 total for the summary card. This 
specification is necessajry when the summary 
card is merged behind control groups rather 
than punched from a secopd file of blank 
cards. This specif icatibn is required 
because the level-2 control break does not 
occur until the first card of the next con- 
trol group is read — and this does not occur 
until after the blank card is read. 



NOTE: The control level 



L0 has been entered 



to identify a total calculation. 



The summary punching of accumulated 
value is illustrated on the output speci- 
fication sheet in Figure 18. The specifi- 
cations required for this function are 
circled. 

The cards to be punched will become a 
new output file which is given the name of 
the combined file DETLABOR. This name is 
specified in Filename for the specifica- 
tion line 12. 

The T in Type (H/D/T) indicates the 
operation is to be performed at total time. 

The 2 in Stacker Select indicates that 
the summary cards are to be selected into 
stacker number 2. 

Resulting Indicator 16 in Output Indi- 
cators indicates that the operation is to 
occur at the time the blank card is read 
in. 

The first field specified for punching 
is column 35 which will be punched with an 
8 to identify the card as a summary card. 
The remaining three fields are punched by 
specifying the name of the field in Field 
Name and then by specifying the last column 
to be punched in End Position In Output 
Record . The format of the summary card is 
shown in Figure 19. 
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Figure 17. Summary Punching Example, Calculation Specifications 
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TESTING FOR ZERO, PLUS, AND MINUS BALANCE 



Input Specifications 



Specifications are executed in the object 
program in the same sequence in which they 
are written on the specification form 
unless a different sequence has been 
specified . 

If specifications had to be followed 
sequentially in a fixed pattern, a program 
would follow a single path of operation. 
The program would not have the ability 
to choose a predefined alternative to the 
procedure based upon conditions encountered 
during progessing. 

For example, assume that a program has 
been written containing ten specifications 
that cause a number of operations to be 
performed upon a series of quantities. If 
the first five specifications develop 
meaningless results when processed with 
quantities of zero, the processing time 
of the object program can be reduced if 
the first five specifications are bypassed 
whenever the quantity to be processed is 
zero,. 

A specification in the RPG program can 
be used to evaluate a quantity and, depend- 
ing upon the value of that quantity, direct 
the program to some other specification. 



Three types of tests can be made on the 
Input Specifications sheet: 

1. Testing an input field to determine if 
it contains a plus value 

2. Testing an input field to determine if 
it contains a minus value 

3. Testing an input field to determine if 
it is blank or is punched with zeros 

Calculation Specifications 

Three types of tests can be made on the 
Calculation Specifications sheet: tests 
to determine whether the result of a 
calculation is plus, minus, or zero or 
blank. 

The program also can compare two fields 
and can test the result to determine if 
the contents of one field is greater than, 
smaller than, or equal to that of the other 
field. 

Figures 20 and 21 illustrate a test for 
a zero balance, and Figure 22 shows the 
specifications for a test for a minus 
balance. 

Figure 20 illustrates a typical test of 
the contents of an input field. If FLDA 
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Figure 21. Test for a !2ero Balance 



(line 6) contains zeros,; it is unnecessary 
to perform some of the operations entered 
on the Calculation Specifications sheet. 
To make this test, the programmer places 
a number from 01 to 99 in Field Indicators : 
Zero or Blank (columns 69-70) . In this 
example the number is 18|. If a card read 
into the system contains; zeros in columns 
46-50 (FLDA) , indicator 18 is turned on. 

"Turning on" an indicator means a 
special condition has occurred, and the 
program must consider this condition during 
the processing of calculation specifica- 
tions and/or output specifications. This 
indicator condition is np different from 
having a resulting indicator turned on by a 
specific record identification code from 
an input card. 

For example, the entries circled in 
Figure 21 are the additional specifications 
that bypass the calculation upon detail 
cards if the value in Fli>A is zero or blank. 

The specifications 14^18 in Indicators 
(columns 10-14) mean that the calculation 
will be performed if indicator 14 is on 
and indicator 18 is off. (The N in N18 



stands for Not .) As now written on the 
Calculation Specifications sheet in Figure 
21, the detail calculations are not per- 
formed if the value of FLDA from the input 
card is zero (Figure 20) . 

The same indicator specification, N18, 
could also be used on the Output-Format 
Specifications sheet to prevent the print- 
ing of detail cards when FLDA is zero (if 
that was a requirement of the program) . 



USING RESULTING INDICATORS 



Problem 

The calculation specifications in this 
example illustrate the use of a resulting 
indicator to test for a minus balance. 
The result of the test can be used to by- 
pass some specifications and to process 
other specifications only when the condi- 
tion tested for is present. 
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Specifications 



The specifications for this example are 
shown in Figure 22. The program logic for 
this example is shown in Figure 23. 

Line 1 specifies that FLDB is to be 
added to FLDA and that the result is to be 
placed in FLDD. Line 2 specifies that 
FLDC is to be subtracted from FLDD, that 
the result is to be placed in FLDD and 
that FLDD is to be tested to determine if 
the result is minus. In this example it 
is assumed that if a minus balance occurs, 
the calculation has no meaning. There- 
fore, if the result is minus, two things 
must be accomplished: 

1. The result must not be added into field 
TOTE. 



2. The contents of field FLDD must be re- 
set to zeros. (This step might be 
required if FLDD were used in a subse- 
quent step and the minus balance re- 
maining would give incorrect results.) 

This is accomplished on the specifi- 
cation sheet (Figure 22) by placing an 
indicator code (19) in Resulting Indicators 
Minus on the specification-line 2. Indi- 
cator 19 will be turned on for a minus 
condition. 

The function of adding TOTE to FLDD is 
specified on line 3. It is accomplished 
only if there is a no-minus condition re- 
sulting from the test on line 2. The 
specifications on line 4 cause FLDD to be 
reset to zeros only on a minus condition. 

The in Factor 2 on line 4 is known 
as a literal and is used to set FLDD to 
zeros. (A literal is the actual value to 
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Figure 22. Testing for a Minus Condition 
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be used in a calculation jrather than the 
name of the location of the data to be 
used.) The remaining specifications on 
the form in Figure 22 are! the same as 
those from previous examples. 

By using Indicator 19, j it is possible 
to suppress detail-card pjrinting when the 
calculation D - C resultsj in a minus 
balance. 



COMPARISON OF TWO FIELDS 

! 

The calculation specif icajtions in this 
example illustrate the ability to compare 
two fields and govern processing according 
to the result of the comparison. The com- 
parison may be tested forj a high, low, or 
equal condition. The result of the test 
can then be used to bypasis some specifica- 
tions or to process otherj specifications 
only when a particular condition is present. 



Specifications 



The calculation specifications for this 
example are shown in Figure 24. The pro- 
gram logic for the example is shown in 
Figure 25. 

Line 1 specifies that JFLDA is compared 
to FLDB. If the two fields are equal, 
Indicator 18 is turned on, and FLDA is 
moved to HOLD (line 2) . If the two fields 
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Figure 23. 



Testing Indicators to Govern 
Processing 



are not equal (line 3) , FLDB is subtracted 
from FLDA and the result is placed in SAVE. 

A literal may also be used in a com- 
parison specification. In the lower half 
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Figure 24. Specifying al Comparison 
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Figure 25. Testing a Comparison 



of Figure 24, the contents of the input 
field, DATE, are compared against 02-14-64, 
and Indicator 19 is turned on if they are 
equal. 

MULTIPLICATION AND DIVISION 

Multiply and divide operations are easily 
accomplished with RPG. Moreover, two 
problems associated with these functions 
(decimal-point alignment and half-adjusting) 
are easily specified. 

Problem 

This example illustrates an inventory card 



(Figure 26) that must have the quantity 
multiplied by the price to develop a total 
cost on a weekly basis. The price of the 
part is also updated each week so that 
the price for the following week reflects 
the average fabrication costs and scrap 
losses on a year-to-date basis. 

Specifications 

The specifications to accomplish these 
functions are shown in Figures 27 and 28. 
Figure 27 shows the input specifications 
for all five fields. The programmer must 
be certain of the exact size of each field 
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Figure 26. Inventory Card 
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Figure 27. Input Specifications 



and the number of decimal places within 
each field. The fields in this example 
are 



Part Number xxxxx 



Price 
Quantity 
Y/D Cost 
Y/D Usage 



XX . XXX 

xxxx. 

XXXXXX . XX 

xxxxxx. 



No decimal positions 
(alphameric) 
3 decimal positions 
decimal positions 
2 decimal positions 
decimal positions 



As shown in Figure 27, the decimal posi- 
tions of each field are entered under 
Decimal Positions on the Input Specifica- 
tions sheet. 

The calculation specifications for this 
example are shown in Figure 28. Price 
is multiplied by quantity and the result 
is placed in a field called COST. The 
field length of COST is specified as 9. 
The result field is to have two decimal 
positions and to be half -ad jus ted as 
specified by the H in Half Adjust (column 
53) . The following is an example of the 
arithmetic of this operation, using actual 
values: 



Price 
Quantity 



213 
216 



7278 
1213 
2426 
262.008 



The result field was specified for two 
decimal positions; therefore, the half- 
adjustment is made to the digit 8 in the 
units position of the field. Half-adjust- 
ment is always made to the position to the 
right of the last position retained as 
part of the result, as follows: 

262.008 

+ 5 half-adjust 

262.013 

The result, 262.01, is stored as the 
contents of COST. The position that was 
half-adjusted is dropped. 

The second line of the Calculation 
Specifications sheet provides the specifi- 
cations for dividing year-to-date costs 
by year-to-date usage. The result is 
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Figure 28. Calculation Specifications 



placed in a field called PRICE. The field 
length of PRICE is specified as 5, including 
three decimal positions. The result is to 
be half-adjusted, as specified by the H 
in H alf Adjust. An example of the arith- 
metic of this operation, using actual 
values, follows. Year-to-date cost divided 
by usage equals price. 



(Y/D 
usage) 



1.3419 



1296 



1739. 23xx 



(price) 
(Y/D cost) 



The result field was specified for 
three decimal places. Therefore, the half- 
adjustment is made to the digit 9 in the 
units position. This is the position to 
the right of the last position retained as 
part of the result, as follows: 

1.3419 

+ 5 half -ad just 

1.3424 

The result 1.342 is stored as the con- 
tents of PRICE. The position that was 
half- adjusted is dropped. 



SEQUENCE-CHECKING 

Two types of sequence-checking functions 
can be performed with RPG: 

1. Checking the sequence of different 
record-types within a control group. 

2. Checking the sequence of control groups, 
(See the section Using the Matching 



Fields Specification for Sequence- 
Checking. ) 



Sequence-Checking of Different Record 
Types within a Control Group 

The application consists of updating an 
inventory file, which, in this case, con- 
tains from one to four of the following 
types for each inventory part number: 



CARD 

Balance-Forward 
Issue 
Receipt 
Adjustment 



CODE 

5 in col. 78 

3 in col. 78 

2 in col. 78 

8 in col. 78 



Figure 29 illustrates the specifications 
required to check the sequence within a 
group of four card-types. In a complete 
problem the control groups (part numbers) 
would be designated by use of a control 
level indicator as explained in a previous 
example. The numbers on the form refer 
to the following numbers: 



1. The record-identification codes for the 
four cards are specified in the same 
manner as in previous examples. The C 
in C/Z/D indicates that the entire 
character punched in the card is ex- 
amined to establish the record- 
identification code. 
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Figure 29. Input Specifications 

In the specifications for the last 
card-type (specification-line 13 on the 
form) , a D is written in C/Z/P because 
there is a possibility that some of 
these card- types may have a zone punch. 
The D specifies that only the digit 
punches in the card are examined to 
identify the card-type. Thus, zone 
punches that could result in unequal 
comparisons are ignored. 
2. The sequence established for the file 
is determined by the sequence in which 
the specifications for each card-type 
are written on the form and by the 
numbers placed in Sequence . In this 
example, the digits 01, 02, 03, and 04 
are used. The numbers assigned must 
begin with 01 in each file and must be 
consecutive in ascending order. 

Alphabetic characters under Sequence 
in preceding examples indicate that no 
sequence-checking is to take place. 
Alphabetic specifications must always 
be written before numeric specifica- 
tions. 



These specifications are all that 
are required to cause the object module 
to perform a sequence-check of the 
various record-types within the part 
number control groups. If a sequence- 
check error is detected, a special in- 
dicator can be tested in the program 
in order to determine its status. 

Two additional specifications, 
Number and Option , are used in these 
types of applications . 

If a numeric specification is provided 
in Sequence , a specification must be 
provided in Number . 

On the first specification line, the 
number 1 in Number indicates that one 
record of that type must be present in 
each group. In this example only one 
balance-forward card for each inventory 
part number must be present. If there 
is no balance-forward card, the pro- 
gram recognizes an error in the input 
file. 

The letter N in Number of the speci- 
fications for the other record-types 
means that multiple card-types for each 
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part number may be present. In this 
example, multiple cards for issues, 
receipts, and adjustments may be 
present. 

The letter in Option in the 
specifications means that the records 
are optional. That is, a record may 
or may not be present. 

If the letter is not specified it 
means that the particular record must 
be present. This requirement applies 
only if Sequence has been specified as 
numeric. 



CORRELATION OF THE RPG SPECIFICATIONS 
SHEETS 

Figure 30 shows a file-to-file sample 
program. (This type of report is often 
called an 80/80 listing.) It illustrates 
the relationships of the RPG specifica- 
tion sheets. 

Assume the contents of an input file 
are to be transferred to another file. In 
this example the input file is a card file, 
and the contents of the cards are to be 
printed. Three specifications sheets are 
required for this program: File Descrip- 
tion, Input, and Output-Format Specifica- 
tions. 



File Description Specifications Sheet 

The two files are described on this sheet. 
The card-input file is assigned the name 
INPUT, and the printed output file is 
named OUTPUT. Page and line sequence num- 
bers are entered in columns 1-5. An F 
in column 6 indicates that each entry is 
a File Description Entry. The file names 
are entered in columns 7-14 ( Filename ) . 
Column 15 contains an I or an O to indicate 
whether the file has an input or an output 
function. 

Column 16 of the input file of the File 
Description Specifications Sheet contains a 
P because the file described is the pri- 
mary input file for the job; the E in 
column 17 indicates that the end-of-file 
condition for this file occurs when this 
file is depleted. 

Column 19 contains an F and a V to 
indicate that the file formats are fixed- 
length and variable-length respectively. 

Block length (columns 20-23) is 80 for 
the input file because each card is a block 
of data. Record length (columns 24-27) is 
also 80 for the input file because each 
card is an unblocked record. For the out- 
put file, the block length and the record 



length is 132, which is the maximum length 
of a printer line. The program identifi- 
cation is entered into columns 75-80. 

If the input file was read in by an 
IBM 1442 Card Read-Punch (as it is in this 
example) the code in Device (columns 40-46) 
would be READ42. The output printer would 
have a Device code of PRINTER. 



Input Specifications Sheet 

The Input Specifications sheet also has 
the program identification entered in 
columns 75-80 and the page and line num- 
bers in columns 1-5. An I in column 6 of 
each card indicates an input specification 
entry. 

The filename is again entered into col- 
umns 7-14. Columns 15-16 contain the se- 
quence code AA. Indicator 01, entered into 
columns 19-20, will be on throughout the 
job to show that records from its associated 
file are being processed. The second line 
describes the field name CARDIN. The field 
consists of card columns 1-80. 



Output-Format Specifications Sheet 

On the Output-Format Specifications sheet, 
the filename of the output file is entered 
in columns 7-14. The D in column 15 indi- 
cates that each line printed in this file 
is a detail line. A single space after 
printing is specified by the entry in 
column 18. Indicator 01 from the Input 
Specifications sheet is specified in 
columns 24-25. When Indicator 01 is on, 
a record will be printed. 

The second output line has the name of 
the field to be written in the output 
record entered in columns 32-37. Data 
from the field labeled CARDIN will be 
printed (end position of 80) in the out- 
put record as specified in columns 40-43. 



SUMMARY 

This completes the general description of 
some of the functions that can be per- 
formed with RPG. Some of the fields of 
the specifications sheets were not ex- 
plained and some additional operations 
that can be performed with RPG remain to 
be described. At this point, the reader 
should be able to determine the scope of 
the RPG program. 

More specific information about each 
specification sheet is contained under 
RPG Specification Sheets. 
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Figure 30. File-to-File Program 
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PROGRAM LOGIC 



Each program generated by RPG uses the same 
general logic, and for each record to be 
processed the program goes through the same 
general cycle of operations. Within that 
cycle, there are two different instances in 
time when operations specified on the 
Calculation and Output-Format Specifications 
sheets are performed. These instances are 
called detail and total time. 

For the illustration of this concept, a 
generalized flowchart of an RPG generated 
program is shown in Figure 31. 

The following numbers correspond to 
the numbers on Figure 31. A program cycle 
begins with item 1 and continues through 
item 11. Steps 6 and 7 are referred to 
as total time . Steps 1 and 11 are referred 
to as detail time . 

1. Before the first record is read, the 
program prepares and writes any 
heading information to be put out on 
the first page. After the first 
record has been read, the program 
prepares and writes heading and detail 
information which is not conditioned 
on overflow. 

2. The generated program tests for any 
halt indicators. If any halt indi- 
cators are on, the program branches 
to item 12. 

3. The generated program tests for the 
end-of-file conditions. If the end- 
of-file condition has occurred, the 
program branches to item 13. 

4 . The generated program then reads an 
input record. 

5. All control level indicators and all 
resulting indicators (specified) in 
columns 19-20 of the input sheet) are 
turned off. Then, starting with line 1 
of the Input Specifications sheets, 
and with the record just read, the 
generated program uses the record 
identification code to identify the 
record. When the identification code 
matches an entry on the input sheet, 
the program turns on the resulting 
indicator that has been specified for 
the record. When a control-field 
break occurs, appropriate control-level 
indicators are turned on. 

6. Next, all total calculations are per- 
formed. (This step is bypassed for 
the initial control break which is 
caused by reading the first input 
record. ) 

7. Next, all total output records which 
are not conditioned on overflow are 
prepared and put out. (This step is 
also bypassed for the first control 
break. ) 

8. The generated program tests for the 
last record indicator (LR) . If it 
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Figure 31. General Logic Flow of a Program 
Generated by RPG 
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is on, the program branches to item 
14. 
9. The object module tests for an over- 
flow condition. If an overflow con- 
dition has occurred, the program 
branches to item 15. Overflow is 
defined as the condition existing 
whenever any of the indicators OA-OG, 
and OV are on. (This step is also 
bypassed for the first control break.) 

10. The data fields contained in the input 
record just read are moved into stor- 
age. These fields are specified by 
field entries on the Input Specifica- 
tions Sheet. 

11. Any detail calculations are performed, 
and processing continues with item 1. 

12. Program execution is terminated. 

13. The Last-Record indicator (LR) is set 
ON and all control-level indicators 
L1-L9 are set ON. Then the program 
branches to item 6. 

14. Program execution is terminated. 

15. If overflow has occurred, total lines, 
heading lines and detail lines (in 
that order) conditioned by overflow 
are printed. The program then 
branches to item 10. 

PROBLEM DEFINITION 

The programming examples in the preceding 
section were intended to introduce the 
reader to the use of RPG and were there- 
fore kept simple. More complex applica- 
tions may require a thorough analysis of 
the existing or proposed system before a 
program can be written. 

This analysis should include a descrip- 
tion of source data and its format, and 
how this data should be processed to de- 
velop the report and other necessary output 
information. 

The following types of information must 
be defined before coding the program: 



1. 
2. 
3. 



5. 



The available data 

The input and output formats to be used 
The information required in the input 
and output formats 

The codes to be used to identify the 
various inputs and outputs and their 
elements 

The handling of the various trans- 
actions and exceptions. 



After all application data has been 
gathered, document it for easy reference 
during the writing of the specification 
forms. One method of documenting an appli- 
cation is to lay out the complete format of 
the report on a printer spacing chart. 
This method also provides a pictorial rep- 
resentation of the final product. 



PRINTER SPACING CHART 



Before the report specifications are writ- 
ten, the programmer should have a clear 
picture of what he wants as the final prod- 
uct. If the report is to be printed, he 
must know the number of fields to be placed 
on each line of the report, the spacing 
between lines, and the positioning of the 
information within each line of the report. 

Although no cards for the source deck 
are punched directly from the entries on 
this chart, the representation serves as 
a guide for completing the specification 
sheets. It plays an important role in 
writing report specifications. If the 
final product is written on magnetic tape 
or direct-access storage devices or if it 
is punched in cards, the user must know 
where the information is to be located. 
A tape layout chart or a direct-access 
storage-device layout chart can be used. 



Layout of Lines and Fields 

The two most important functions of a 
printer spacing chart are 

1. To establish the positions of the data 
to be printed and to indicate the spac- 
ing between printed lines. 

2. To assign each line an identification 
code representing the type of line. 
Figure 32 shows an example of the prin- 
ter spacing chart (Form X24-6436) . 

The numbers across the top and bottom 
of the spacing chart represent the print 
positions. The numbers down the left side 
are the line numbers. The programmer 
selects the line number and print positions 
for a particular field and makes his nota- 
tion in the selected positions. 

Headings and other constant information 
are spelled out completely in the print 
positions assigned to them. Variable in- 
formation is represented by Xs and, where 
applicable, includes credit symbols, punc- 
tuation, etc. The position in an amount 
field where zero suppression ends is indi- 
cated by a zero rather than an X. 



Line-Identification Code 



The line-identification code specifies the 
type of line to be printed. The identifi- 
cation codes are H for a heading line, 
D for a detail line, and T for a total 
line. All lines must be identified as 
belonging to one of these categories. 
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GENERAL INFORMATION 



Cross -References 

To make this reference manual a more effec- 
tive learning tool, numerous cross-refer- 
ences have been placed in the manual. They 
are located wherever it was thought that 
readers not familiar with disk storage proc- 
essing and related functions would have 
difficulty with these unfamiliar subjects. 

Disk storage, table lookup, matching 
field, and chaining field operations and 
related functions are described apart from 
the detailed descriptions of specifications 
for them. 

These general introductory descriptions, 
contained at the back of the manual, can 
be used by the reader as he encounters 
the related specifications for them through- 
out the manual. 

To facilitate locating them in the man- 
ual, all cross-references used are listed 
in the Index under Cross-Ref erences . 

The section Disk Storage Concepts pro- 
vides a general introduction to disk file 
organization and processing including ter- 
minology associated with these functions. 
Readers not familiar with these concepts 
may wish to review that section before 
beginning with this section. 



Left- and Right-Justification 

When making entries on the RPG sheets, it 
is important that the entry be right- 
justified or left-justified as required. 
Justifying an entry means having it begin 
in the first position of the specification 
(left-justified) , or having it end in the 
last position of the specification (right- 
justified) . 

Alphameric entries (composed of both 
alphabetic and numeric entries) are always 
left-justified. Numeric entries are always 
right- justified. 

Information regarding the correct justi- 
fication is provided in the description of 
the entry, in those cases where it may not 
be clear to the reader as to whether the 
entry is alphameric or numeric. 



Alphabetic Characters 

In this manual, the references to a lphabetic 
character designate the letters A through Z, 
the dollar sign ($) , the pound sign (#) , 
and the at sign (@) . 



Numeric Field Format 

The System/360 packed decimal format allows 
two decimal digits to be represented in one 
core storage byte. The RPG object program 
automatically converts all numeric input 
data from unpacked to packed format. Unless 
otherwise specified, all numeric data is un- 
packed before it is output. In this manual, 
numeric length refers to the unpacked length 
although the data is actually stored in the 
packed format. 



Sterling Routines, 

Sterling Routines are included in RPG to 
provide users with a convenient and time- 
saving means of handling amount fields that 
are punched in the format of Pound Sterling 
monetary units. 

The presence of sterling fields is indi- 
cated to the RPG program by additional entries 
in the input and output specifications sheets 
and in the RPG Control Card. The other 
specifications sheets are not affected. All 
calculations are done in the Pence unit of 
measure. 



RPG SPECIFICATION SHEETS 

This section provides detailed explanations 
of each specification field contained in 
the six RPG forms. 

The forms are listed in the sequence in 
which they are discussed in this publication 
(see Figure 33) . 

Input Specifications 
Calculation Specifications 
Output-Format Specifications 
Line Counter Specifications 
File Description Specifications 
File Extension Specifications 



Input Specifications, 
This form is used to 



(Refer to Figure 34) 



1. Specify the file or files to be read 
into the system 

2. Identify the different types of records 
contained in each file 

3. Describe the location of the data 
fields in each record 

Calculation Specifications. This form 
specifies the operations to be performed 
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upon the input data and upon data obtained 
as the result of previous calculations. 

Calculation specifications are graphi- 
cally illustrated below. To perform the 
operation A+B=C, the A field is specified 
in Factor 1, the kind of calculation to be 
performed in Operation , the B field in 
Factor 2 and the C field in Result Field. 



COMMON FIELDS 

There are five entries that have the same 
function in all six forms. These are de- 
scribed first. 

NOTE: The numbers to the right of the 
specification name indicate the position 
on the specification sheet where the field 
is located. 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS) 

IBM System 360 



1 

1 Punching 


Graphic 
















1 Induction 


Punch 



















Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Result Field 

43 44 45 46 47 48 


Field 
Length 

49 50 51 


1 
52 


•< 
X 

53 


Res/ 
IndjJ 




Plus 


Ml 


/ Factor 1 


Com 




High 
1 >2 


L/ 


(9 20 21 22 23 24 25 24 27 


54 53 


I 


















1 








J—k 










1 


A 


4- 


Q - 


- c 










I 


) r\ 


T 


2 


- o 










1 


I ™ 
















/ 


















I 


















1 



Output-Format Specifications . This form 
specifies : 

1. The kind of output files to be pro- 
duced: printed reports, summary 
records, etc. 

2. The location of the data fields in the 
output reports and records 

These functions are illustrated in 
Figure 35. 

Line Counter Specifications. This form 
must be used if a report that will ulti- 
mately be printed is to be stored on some 
intermediate device, and if the program 
uses overflow indicators (or automatic 
skipping) . 

File Description Specifications. This 
form provides additional information about 
input and output files that is not included 
on the input or output sheets . 

File Extension Specifications. This form 
provides additional information about 
tables, chaining files, and record-address 
files. 



Page (1-2) 

This specification is located in the upper 
right-hand corner of the sheets. Each 
specification page of the source program 
may be numbered. The pages are numbered 
beginning with 01 for the File Description 
sheet and continuing in the following 
sequence: 




©Specify the 
Input Files 

Two Input Files 
for a Program 
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Figure 34. Function of Input Specifications 
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File Extension Specifications 
Line Counter Specifications 
Input Specifications 
Calculation Specifications 
Output-Format Specifications 



Line (3-5) 

Each specification line may be identified 
by a line number. The first two digits of 
the line number are pre-printed on the form. 
The third position (column 5) is used when it 
becomes necessary to insert an additional 
line between two previously written lines. 
The line to be inserted is written following 
line 15. It is given an appropriate number 
(and subnumber in column 5) . 

The page number and line number have no 
direct effect on the program and need not 
be written. These columns are for the con- 
venience of the programmer to indicate the 
proper order of the RPG source program 
cards. For example, the specification 
cards for a program could be placed in 
numeric sequence (if, for example they were 
accidentally dropped or upset) by sorting 
or arranging them in sequence by page 
number and line number. 

Form Type (6) 

Each form has an appropriate type-code 
pre-printed in column 6. This code must be 
punched into all specifications cards. 
The codes are 

I Input specifications 

C Calculation specifications 

Output-Format specifications 

L Line Counter specifications 

F File Description specifications 

E File Extension specifications 



Comments (*Column 7) 

This feature enables the programmer to 
insert an identifying comment in the speci- 
fication sheets. This facility can be 
used, for example, to identify the end of 
one section of a program. These comments 
are written on the specification line, 
preceded by an asterisk in column 7. During 
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Figure 35. Functions of Output-Format 
Specifications 



the generation of the object program, 
the asterisk in column 7 identifies the 
comment so that it is not considered a 
specification. 



Program Identification (75-80) 

This identification is located in the upper 
right-hand corner of the sheets. This 
entry identifies the specification cards 
for a particular program or for a specific 
section of a large program. 
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INPUT SPECIFICATIONS SHEET 



GENERAL INFORMATION 

The specifications for this sheet are 
divided into two categories as shown in 
Figure 36. 

1. Record Identification (columns 7-42) . 
These entries identify the input rec- 
ord (by specifying the identifying 
record codes it contains) and specify 
the relationship of the record to other 
records in the file. 

One line of the sheet is used to 
describe one record type. 

When the specifications are being 
written it is not necessary to indicate 
the specific input units used in the 
program. The unit used for each file 
is specified on the file description 
sheet. Each file name therefore is re- 
lated to a specific input unit. By 
merely writing the file name on the 
input sheet, the input unit has, in 
effect, been specified. 

2. Field Description (columns 43-74) . 
These entries describe the fields 
of the input record used in the 
report. 



Each field is described on a sepa- 
rate line and is written on the line 
below its corresponding record- 
identification entry. 



Sequence of Input Records 

To save processing time, input records that 
occur only rarely in the program should 
always be specified at the end, and input 
records that occur frequently should be 
specified at the beginning of each specifi- 
cation list. (Specification list is a 
term used to describe the specifications 
from one or more of the same type of speci- 
fications sheets.) 

On each detail cycle, the specifications 
are examined in the same sequence in which 
they are written on the Input Specifica- 
tions sheet. 

For example, assume a card file contain- 
ing 3000 cards is to be processed and that 
there are five different exception proce- 
dures that must be followed for some of the 
cards. If the program is written so that 
the specifications concerning the excep- 
tion cards are at the beginning of the 
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Figure 36. Input Specifications Sheet 
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input, list, then, as each card is read, 
all specifications for the exceptions must 
be examined first before the specifications 
for the normal processing are found. Thus 
a great amount of processing time would be 
wasted if the card file contained only two 
or three exception cards but the exception 
specifications had to be examined for all 
3000 cards. 



RECORD IDENTIFICATION ENTRIES 



FILENAME (7-14) 

A file name must be given to each input 
file. The file name must be left-justified 
(that is, it must start in column 7) and 
it must begin with an alphabetic character. 
The remaining characters of the name may 
be alphameric, but must not contain special 
characters or embedded blanks. The file 
name may be eight characters or fewer. 
(Embedded blanks are blank positions fall- 
ing between other characters of the name.) 

NOTE: In this publication, alphabetic 
character refers to the letters A through 
Z, the dollar sign, pound sign, and the at 
sign ($, #, and <§>) . 

The file name must be entered only with 
the first record- identification line of 
the appropriate file. 



SEQUENCE (15-16) 

This specification is used to check the 
sequence of cards within a control group. 
Figure 37 illustrates a card file contain- 
ing three types of cards for each part- 
number control group. In this example, to 
assure correct accumulation of the values, 
the balance-forward card must be the first 
card in the control group, the receipt card 
the second, and the new order card the last. 

The specifications for checking the 
sequence of these cards is shown in Figure 
38. (Field description specifications 
are not shown.) 

If the file is not in sequence the halt 
indicator HO is turned on. Unless this HO 
indicator is turned off by a SETOF opera- 
TION (See Turning Indicators On or Off) 
in the calculation specifications, the 
program will terminate before the next input 
record is read. 

The cards are specified on the form in 
the same sequence in which they are to be 
read by the object module. 
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Figure 37. Card Types within Control Groups 

NOTE: The entries in Sequence must begin 
with 01 in each file and be consecutive in 
ascending order. 

Alphabetic codes must be placed in 
Sequence if the input records do not have 
to be in sequence within a control group 
or if it is not necessary to stop process- 
ing when the records are not in sequence. 
Any two alphabetic characters can be used. 

Within a given file, header cards or 
other cards that are not in sequence must 
be specified on the form before specifica- 
tions that must be sequence-checked. 
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Figure 38. Example of Sequence-Checking 
within Control Groups 



NOTE: If a numeric specification is 
given in Sequence then specifications must 
also be provided in Number and Option . 



NUMBER (17) 

If a numeric code is assigned under 
Sequence , an entry must also be made in 
Number ~Tcolumn 17) . If an alphabetic code 
has been assigned under Sequence , this 
column must be blank. 

This specification indicates whether 
only one record of a specific record-type 
should exist in each control group or 
whether one or more than one record of a 
specific record-type may exist in each con- 
trol group. For example, Figure 39 illus- 
trates two control groups of cards. In 
this example, there can only be one balance- 
forward record in each control group, but 
there may be one or more new orders or 
receipt records. 

The entry for the specification Number 
is either: 

1 if only one record of a type may 
exist in a control group, or 

N if one or more records of a type may 
exist in a control group. 



The specifications required for the 
example in Figure 39 are illustrated in 
Figure 40. 



OPTION (18) 

This specification is used only with 
numeric-sequenced record types. 

If the presence of a record is optional, 
the letter O is entered in this column. 
If a specific record type must be present 
in order to perform an operation, or if 
records are non-sequential, this column 
must be left blank. 

In both Figures 38 and 40, the specifi- 
cations under Option indicate that there 
must be a balance-forward card for each 
control group, but there may or may not be 
a new-order or receipt card. 



RESULTING INDICATOR (19-20) 

This specification is used in conjunction 
with the next specification Record Identi- 
fication Codes (21-41) . It has two pur- 
poses : 



1. To establish a 2-digit code for each 
input record type. 
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Figure 39. Number of Record Types within a 
Control Group 
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Example of Using Number 
Specification 



2. To set up a special condition in the 
object program each time the input 
record is read into the system. The 
object program may consider this con- 
dition during the processing of the 
calculation and output specifications. 

As an example of the first function, 
assume that a certain card type is identi- 
fied by the following codes : 

1. Digit 5 in column 40 

2. 11-punch in column 79 

3. No 12-punch in column 80 

By assigning a two-digit resulting indi- 
cator to represent all of these codes it is 
much easier to refer to this card type dur- 
ing the writing of the calculation and out- 
put specifications. 

As an example of the second (and more 
important) function of this specification, 
resulting indicators can be compared to 
selectors in punched-card machines, or to 
internal or external switches on electronic 
data processing machines. The use of 
resulting indicators (like the use of 
selectors and switches) , is to permit cer- 
tain operations to occur only on specific 
conditions. 

Figure 41 illustrates, by symbols, how 
resulting indicators are used in the object 
program. In this example, a payroll file 
contains three types of cards. 



Card Type 

current earnings 

deduction 

adjustment 



Resulting Indicator 

14 
15 
16 



When one of these cards is read into 
the system during the object run, the 
appropriate resulting indicator is turned 
on, and those specifications pertaining to 
the record are performed. The detail spec- 
ifications for these record types are 
indicated on the calculation and output 
specifications forms and are controlled by 
one of these three indicators. Specifica- 
tions associated with other record types 
are not performed. 

The input specifications required to 
establish the three indicators shown above 
are illustrated in Figure 42. (Field 
description specifications are not shown.) 

Resulting indicators — from input 
records — are turned ON and OFF, during the 
processing of the object program, as the 
various record types are read by the system. 
However, only one resulting indicator can 
normally be on at one time. When a result- 
ing indicator is turned on, all other 
resulting indicators are turned off. (See 
Chaining for an exception to this rule.) 

Other indicator conditions that can be 
established in the program are Field 
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Figure 42. Specifying Resulting Indicators 
on Input Specifications 



only one record type is in the input file, 
the identification codes can be left blank 
but a resulting indicator and a sequence 
number must be specified. 

Each of the three sets of entries is 
the same, so only the first set (columns 
21-27) is described. Each set is divided 
into four categories: 



Position 
Not 
C/Z/D 
Character 



(21-24) 
(25) 
(26) 
(27) 



Position (21-24) 

Enter in these columns the position in each 
data record of the character that contains 
the identifying code. The position must be 
right-justified in columns 21-24, and lead- 
ing zeros may be omitted. 



Not (25) 

Enter an N in this column if the code des- 
cribed must not be present in the specified 
record position. Otherwise leave this 
column blank. 



Indicators (columns 65-70) of the input 
specifications and Resulting Indicators 
(columns 54-59) of the calculation speci- 
fications. These functions are described 
later, but one aspect of their use is of 
interest at this time. 

All three types of indicators are 
assigned a 2-digit number in the range of 
01 through 99. Any of these 99 codes can 
be assigned to any one of the three types 
of indicators. Also the indicator codes 
do not have to be assigned in any sequence. 
For example, four different card types that 
are read into the system could be assigned 
codes 40, 62, 99, 02. 



RECORD IDENTIFICATION CODES (21-41) 

This specification provides a way of iden- 
tifying each different record type used in 
the generated program. As mentioned previ- 
ously, once the record type has been 
defined on the Input Specifications sheet, 
references to the record are made by its 
resulting indicator. 

These columns provide for the entry of 
one to three identifying codes as indicated 
by the number 1, 2, and 3 on the Input 
Specifications sheet. It is possible to 
specify more than three record identifica- 
tion codes by using more than one line. If 



C/Z/D (26) 

The object module identifies the different 
record-types of a program by comparing the 
character written in Character against the 
codes contained in the records. The entry 
in Column 26 specifies whether the object 
program is to compare against the entire 
character (C) , against only the zone por- 
tion (Z) , or against only the digit portion 
(D) . Enter a C, Z or D in column 26. 



Zone Record Identification. Testing a zone 
means that the zone of the character located 
in the position specified in columns 21-24 
of the input sheet is used to identify the 
record. (The word "Zone" in this case re- 
fers to the meaning of this word in punched- 
card data processing systems. It does not 
refer to bits 0-3 of the System/360 EBCDIC 
character coding. ) 

The ampersand, the minus, and the blank 
are exceptions. An ampersand will be iden- 
tified as a 12-zone, a minus will be iden- 
tified as an 11-zone, and a blank will be 
identified as a no-zone. The four common 
zones are: 

+ 

1. 12-zone or plus zone (0^ A-I, and &) 

2. 11-zone or minus zone (0, J-R, and 
minus) 

3. 0-zone (S-Z) 

4. No zone (0-9 and Blank) . 
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NOTE: When a blank, ampersand, or minus 
is used in the character portion of a zone 
test, other characters which contain the 
same machine zone (e.g., ^, ^ or %, respec- 
tively) will not satisfy the zone test. 

Digit Record Identification. Testing a 
digit means that the digit portion of the 
character located in the position specified 
in columns 21-24 of the input sheet is used 
to identify the record. (The word "digit" 
in this case refers to the meaning of this 
word in punched-card data processing sys- 
tems. It does not refer to bits 4-7 of the 
System/360 EBCDIC character coding.) 



Character (27) 

Enter in this column the identifying char- 
acter that will be compared to the char- 
acter specified in the input record. The 
character used in this column may be any 
letter A through Z, any number through 9, 
or any special character. 



Examples of Record Identification Codes 

Examples of record-identification specifi- 
cations are shown in Figure 43. The explan- 
ation of each entry is given here. 
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Figure 43. Record Identification Codes 



1. This entry specifies an 11-zone in 
record position 48. Any of the letters 
J-R could be placed in Character be- 
cause they all contain an 11-zone. A 

Z must be placed in column 26 so that 
only the zone portion is checked. If 
a C were placed in this column, the 
object program would compare the letter 
K against the input-record code instead 
of an 11-zone. A minus could be placed 
in this field to represent an 11-zone, 
and an ampersand could represent a 12- 
zone. 

2. This entry specifies that no 11-zone 
may be present in record-position 48. 

3. This entry specifies that the digit 
portion of the code is checked. A 
character whose digit portion is 5 must 
be in record-position 62. For example, 
a 5, N, V, or E would fulfill this 
requirement. 

4. This entry specifies that the letter T 
must be present in record-position 49. 

5. These entries specify that all three 
codes must appear in the same record. 
A 4 must appear in column 16. Column 
40 must not contain the number 5, and 
column 80 must contain a 12-zone. 

NOTE: When more than one record type 
is specified for a file, the record 
identification codes of all record 
types should be mutually exclusive; 
that is, it should not be possible for 
an input record to satisfy the identi- 
fication codes of more than one record 
type. 

AND Relationship 

The last example illustrates the way to 
specify more than one code on one line. 
If an input record contained five different 
codes, they could be specified as shown in 
Figure 44. This is known as an AND rela- 
tionship. It implies that the card is 
identified by: 

1. A 4 in column 16 

2. No 5 in column 40 

3. An 11-zone in column 80 

4. A 2 in column 20 

5. A 3 in column 25 

Additional specification lines can be 
used to specify as many record-identifica- 
tion codes as required. Each additional 
line must begin with the word AND in col- 
umns 14-16 and blanks in columns 17-20 and 
42. 



40 



Filename 



INTERNATIONAL BUSINESS MACHIK 

REPORT PROGRAM GENERATOR 





IBM System 


36( 


Punching 


Graphic 






Punch 

















PAYREPT 



AA 



km 



26 



Record Identification Codes 



1A 



M 



C2 



j25 



4^g£ 80 



C3 



35 36 37 38 



Figure 44. Specifying More Than Three 
Identification Codes 



indicator, HO, is turned on. Unless HO in- 
dicator is turned off by a SETOF operation 
(see Turning Indicators On or Off ) on the 
Calculation Specifications sheet, the pro- 
gram terminates before the next input rec- 
ord is read. 

NOTE: If the records are to be bypassed, 
they should not be referred to on the cal- 
culation or output sheets. 



Variable-Length Input Records 

If the record length of the shortest 
variable-length record is less than the 
highest position tested in Record Identifi - 
cation , a blank cannot be used as a means 
of identifying a record in those positions 
that exceed the length of the minimum 
record. This is illustrated in the follow- 
ing example. 



OR Relationship 

An AND relationship is concerned with spec- 
ifying more than three record identifica- 
tion codes, for one record type, whereas an 
OR relationship is used to specify two dif- 
ferent record types with just one set of 
field description specifications. The 
fields in the two record types may be in 
the same positions or in different posi- 
tions. 

A complete description of OR relation- 
ships is presented after the description 
of Field Location (columns 44-51) . 



Record Identification Codes 
X-H 

X-30, X-41 NX-60 
NX-49 

X-21 , NX-79 

X-49, NX-34 



Record Length 
30 
60 

80 
50 



The minimum variable-length record is 30 positions; therefore a 
blank cannot be used as a record identification code in any 
position higher than 30 . 



Omitting Record Identification 

When input records are to be processed 
alike without regard for their identifying 
codes, columns 21-41 may be left blank; 
however, Sequence (columns 15-16) and Re- 
sulting Indicator (columns 19-20) must be 
specified. 

When only certain record types within a 
group are to be read and processed, they 
must be listed first with their identifying 
record codes. The remaining record types 
may be bypassed or processed as a group. 
In either case, they are specified as the 
last record type, and they must have a re- 
sulting indicator specified for them. Col- 
umns 21-41 of the Input Specifications 
sheet can then be left blank. 

If a record type that has not been iden- 
tified on the Input Specifications sheet 
appears in an input file during the process- 
ing of the generated program, a special 



STACKER SELECT (42) 

This specification causes cards to be se- 
lected into stackers of the input/output 
units. It is used when an input/output unit 
with more than one stacker is attached to 
the system. 

If no entry is made in Stacker Select , 
the cards from the input file are selected 
to the first stacker pocket depending on the 
input/output unit attached to the system. 

For input cards that are to be punched 
by the program (i.e., combined file), stack- 
er selection must be specified on the Out- 
put-Format Specifications sheet. 

The stacker pockets and their acceptable 
codes are shown in Figure 45. 

The stacker-select entry is made on the 
same line with the record identification. 
If different records in an OR relationship 
are to be stacker-selected, the appropriate 
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Input Unit 


Stacker 
Number 


Stacker 
Select Code 


IBM 1442 Card Read-Punch 


1 
2 


1 or Blank 
2 


IBM 2501 Card Reader 


- 


Blank 


IBM 2520 Card Read-Punch 


1 
2 


1 or Blank 
2 


IBM 2540 Card Read-Punch 


Rl 
R2 


1 
2 



Figure 45. Summary of Stacker Select 
Specifications (Input) 



stacker-select entry must be written on 
each OR- record identification line. 



FIELD DESCRIPTION ENTRIES 

As mentioned previously, the Input Speci- 
fications sheet consists of two categories : 
record identification and field descrip- 
tion . 

On the record identification portion of 
the Input Specifications sheet, one line 
represents the specifications for one rec- 
ord type. On the field-description portion 
of the sheet, one line represents the speci- 
fications for one field of a record. 

The following information concerns the 
individual field descriptions of one rec- 
ord type. Field descriptions are always 
written on the specification line immedi- 
ately below the specification line that 
identifies the record type. 

Field description entries describe the 
fields of the input record to be used in 
the report. Each field of the record re- 
quires one line on the Input Specifications 
sheet. Columns 7-42 of the line must be 
blank. 

NOTE: Unused record fields should not be 
described, since this would waste core stor- 
age and processing time. 



PACKED (43) 

Packed format in the System/360 means that 
two decimal digits can be represented in 
one core storage byte. This is the data 
format used for numeric fields in RPG. Be- 
cause input data is usually represented in 
the unpacked format — one digit in one core 



storage byte-— the RPG program automatically 
converts numeric input data from the un- 
packed format to the packed decimal format. 
Because the packed decimal format permits 
greater utilization of storage capacities 
(card-tape-disk) the RPG program permits 
numeric data to be put out in the packed 
decimal format. (See Output-Format Speci- 
fications Sheets. ) 

In order to utilize this numeric output 
data in subsequent processing runs, RPG per- 
mits data in packed decimal format to be 
read into the RPG program. 

Enter a P in this column if the numeric 
input field is in the packed decimal for- 
mat. Otherwise leave this column blank. 
(The letter P causes the RPG program to by- 
pass the normal conversion of unpacked for- 
mat to packed decimal format. ) 

The implied field length for determining 
the length of fields in calculation speci- 
fications for input in packed decimal for- 
mat is : 

2n - 1 

n = number of input record positions used 



FIELD LOCATION (44-51) 

Columns 44-51 of the Input Specifications 
sheet are used to describe the location of 
each field in the record. The maximum field 
length for a numeric field is 15 digits. 
The maximum field length for an alphameric 
field is 256 characters. 

From (44-47) . This specification contains 
the location of the first position (left- 
most position) of the field. 

To (48-51) . This specification contains the 
location of the last position (rightmost 
position) of the field. 

NOTE: The entries in columns 44-47 and 
48-51 must be right- justified. Leading 
zeros may be omitted. 

Figure 46 illustrates a card input rec- 
ord. The field location specifications nec- 
essary to read this card into the system 
are shown in Figure 47. 

The fields of the record may be listed 
in any sequence. (In this example they are 
shown in the same sequence as they appear 
on the card to make the example easier to 
understand. ) 

The specifications in Decimal Positions 
and Field Name are also included in Figure 
47 because all three fields are closely 
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9 17 1 

1111 



41 



222 
13333 

444 
5555 
6666 
7777 

888 



9999 
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Emp 
No. 



000000 

I 10 11 12 13 U 
111111 

222222 
333333 
444444 
555555 
666666 

mm 

888888 
999999 

I 10 11 12 13 



Employee 
Name 



00000000000000 

15 I1 17 II II 20 21 22 23 24 25 21 27 21 
11111111111111 

22222222222222 
33333333333333 
44444444444444 
55555555555555 
66666666666666 
77777777777777 
88888888888888 
99999999999999 

15 I1 17 II II 20 21 22 23 24 25 21 27 





ZS 30 31 32 33 34 
111111 

222222 
333333 
4 4 4 4 4 4 
555555 
666666 
777777 



999999 

21 31 31 32 33 



0000000000 

» 37 31 39 40 41 42 43 44 45 
1111111111 

2222222222 
3333333333 
4444444444 
5 5 5 5 5 5 5 5 5 5 
6666666666 
7777777777 
8888888888 
9999999999 

37 313140 4142434445 



Field 
A 



00000 

46 47 41 49 50 
11111 

22222 
33333 
44444 
55555 
66666 
77777 



99999 

40 47 40 49 50 



00000 

51 52 53 54 55 
11111 

22222 
33333 
44444 
55555 
66666 
77777 



99999 

51 52 53 54 55 



Field 
B 



000000000000000 

57 51 59 90 II 92 139495099711(970 
111111111111111 

222222222222222 
333333333333333 
444444444444444 
555555555555555 
666666666666666 
777777777777777 
8888888888888 
999999999999999 

51 57 59 51 Mill 92 93 94 95H9 17 M N 70 



Field 
C 



000000000 

7273 74 757I777I7IM 
111111111 

2 



22222222 

33333333 

444444444 

555555555 

66666666 

77777777 

88888888 

99999999 

7273 74 757577707190 



Figure 46. Sample Input Card 
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Figure 47. Example of Field Location Specifications 
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related. These specifications are explain- 
ed following the description of Field 
Location . 

Records in an OR-Relationship 

It is possible to specify two different 
record types with just one set of specifi- 
cations. This is known as an OR relation- 
ship. There are three types of OR rela- 
tionships : 

1. One or more record types have the same 
fields in the same positions of the 
record. (For example, all fields in 
one record type are in the same rela- 
tive positions in another record type.) 

2. One or more record types have the same 
fields, but the fields are in different 
positions of the record. (For example, 
unit cost is in positions 21-25 in one 
record type and in positions 31-35 in 
another record type.) 

3. One or more record types have different 
fields in the same positions or in dif- 
ferent positions of the record. (For 
example, two record types with ten 
fields in the same relative positions, 
but with three fields in different 
positions.) 

It is of value to specify an OR rela- 
tionship for the types in items 2 and 3 
above only if there are more fields that 
are alike than fields that are unlike. 

As an example of the first type of OR 
relationship assume that there were two de- 
tail labor cards in the preceding example; 
perhaps the second having been created dur- 
ing the previous week's reporting. If the 
second card had the same fields as the 
first, but with a different record identifi- 
cation code, it would not be necessary to 
repeat all of the field specifications for 
the second card. 

Figure 48 shows the only additional 
specifications required in order to specify 
both detail labor cards. The specification 
OR is entered in columns 14 and 15, and col- 
umns 16-18 are left blank. The last OR 
line (if there is more than one OR relation) 
is followed by the field description 
entries. 

Figures 49 and 50 illustrate how to 
specify two records in an OR relationship 
when the field locations are not the same. 
The input record in Figure 49 is similar to 
the record in Figure 46 except that FLDC is 
located in positions 61-65, instead of posi- 
tions 66-70. By specifying an OR relation- 
ship it is possible to specify both record 
types with one set of specifications. 



Figure 50 illustrates the specifications 
for this example. The numbers in the mar- 
gin of the subsequent text refer to the 
numbers circled in Figure 50. 

1. When field locations are not the same 
for both types, it is necessary to pro- 
vide a separate resulting indicator 
code for the second record type. 

2. Each field that is not located in the 
same positions in both record types 
must be specified twice . Each of the 
two specifications must be related to 
the appropriate record type. This is 
accomplished by specifying the appro- 
priate resulting indicator code in 
Field-Record Relation . 

For example, FLDC located in positions 
66-70 is related to resulting indicator 14 
(the record type identified by a 5 in col- 
umn 35) ; and field FLDC in positions 61-65 
is related to resulting indicator 16 (the 
record type identified by a 6 in column 
35) . Thus, if resulting indicator 14 is on; 
FLDC will be taken from positions 66-70; if 
resulting indicator 16 is on, FLDC will be 
taken from positions 61-65. 

It is also possible to take advantage of 
an OR relationship to specify control fields 
that are not in the same positions in two 
different record types. In addition, speci- 
fying record types in an OR relationship is 
not limited to just two records. As many 
records as required can be specified as 
having an OR relationship. 



DECIMAL POSITIONS (52) 

This specification performs two functions: 

1. It is used by the object program to 
determine the number of decimal posi- 
tions contained in the field specified 
in Field Location . 

2. It causes the field specified in Field 
Location to have O-(zero), 11-, or 
12-zone bits removed from all positions 
except the rightmost position. 

If the field specified in Field Location 
is to have calculations or edit functions 
performed upon it or if it will be zero- 
suppressed in the output, there must be a 
specification in Decimal Positions . If 
there are no decimal positions in an arith- 
metic field, a zero must be specified. 
This specification must be left blank if 
the field is alphameric. 

In Figure 51, the fields DIVSON, DEPT, 
and EMPNO contain numeric information, but 
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Figure 48. Records in an OR- Relationship, Identical Field Locations 



Div 



Dept 



Emp 
No. 



Employee 
Name 



Field 
A 



Field 
B 



Field A 



0000 

12 3 4 
1111 

2222 
3333 
4444 
5555 
6666 
7777 



9999 

12 3 4 



0000 

5 6 7 I 
1111 

2222 
3333 
4444 
5555 
6666 
7777 
8888 
9999 

5 6 7 I 



000000 

9 10 II 12 13 14 
111111 

222222 
333333 
444444 
555555 
666666 
777777 



999999 

9 10 11 12 13 14 



00000000000000 

It 17 19 19 20 21 22 23 24 25 28 27 29 
11111111111111 

22222222222222 
33333333333333 
44444444444444 
55555555555555 
66666666666666 
77777777777777 



99999999999999 

IS It 17 19 19 20 21 22 23 24 25 28 27 



000000 

29 30 31 32 33 34 
111111 

222222 

333333 

4 4 4 4 4 4 

55555 

66666 

777777 



& 



999999 

X 31 32 33 34 



0000000000 

38 37 39 39 40 41 42 43 44 45 
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Input Specifications Sheet 45 



IBM 



INTERNATIONAL tUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/ 360 



Program 
Prograrr 



Punching 


G-ophi. 
















Punch 

















m 



75 76 77 78 79 



3 4 5 < 


Filename 

7 « 1 11 II 11 13 14 


I 

IS 16 


z 

I 

E 

Z 

17 


o 

1 

18 


1 
19 30 


Record Identification Codes 


i 
3 

1 

42 


1 

3 

43 


Field 


I 

a 

52 


Field Name 

53 54 55 56 37 58 


i 

59 60 


5 

Si 

a st 
l'| 

1 6 

61 62 


.1 

3 
1 

-is 

63 64 




Field 




Sterling 

Sign 
Position 

71 72 73 74 


i 


2 


3 


Location 


Inaicarors 


Position 

71 22 23 24 


z 

z 

25 


a 

26 


27 


Position 

28 29 30 31 


z 
z 

32 


a 

33 


i 

s 

34 


Position 

35 36 37 38 


Z 

Z 
39 


a 



40 


u 


From 

44 45 46 47 


To 

48 49 50 51 


Plus 
65 66 


Minus 
67 68 


Zero 
Blank 

69 70 


1 


DSTLABOR 


44 




1H 


35 




D 


5 


80 


M 


z 


K 




































2 


( o 


P 






16 


35 







6 


T 










































o »,0 












( 




























1 


V 




DlVSOfil 
















o *<P 












n 




























5 


8 




DEPT 
















50 












J- 




























9 


m 




I MP NO 
















«0 








































15 


28 




NAME 
















70 








































16 


500 


fL DA 
















8^ 








































56 


600 


FlDB 
















9 




























• 


« 


>. 


«■ 


•k, 


J 


' 66 


700FLDC 






tt 


~^ 


\ 






1 0) 




























^ 










\ 


. 61 


65 


4FLDC 






16 


__^ 


» 






t 1 































































Figure 50. Records in an OR Relationship, Differing Field Locations 
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Figure 51. Specifying Decimal Positions 
Input Form 



on 



because they will not have arithmetic oper- 
ations performed upon them, they are speci- 
fied as "alphabetic" fields by leaving 
Decimal Positions blank. The NAME field is 
alphabetic and therefore is also blank in 
Decimal Positions . The fields FLDA, FLDB, 
and FLDC are numeric arithmetic fields with 
decimal specifications of zero. 



FIELD NAME (53-58) 

Each field defined must be given a field 
name. Once a name has been assigned to a 
field, other references to it are made by 
using the field name, rather than by using 
the specific record position each time. 
Thus, the record positions of the input 
fields are not needed when writing the cal- 
culation and output specifications. 

The field name must begin with an alpha- 
betic character, and it must start in col- 
umn 53. The field name may be alphameric, 
but it may not contain special characters 
or embedded blanks. 

Figure 52 illustrates field names that 
are easy to read and suggest the function 
of the fields they represent. 
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Figure 52. Field Names 



Two input files may have fields with the 
same field names. A field name is assigned 
only once by RPG. The two input files will 
use the same storage location for fields 
with identical names. This procedure is 
permissible when using RPG, but the pro- 
grammer should be aware that possible 
errors in calculations or output may occur 
when two input files have the same field 
names. This is especially important when 
chaining fields are specified on the Input 
Specifications sheet. 



Specifying the Same Data Field as Alpha- 
meric and Numeric 

If the same field from an input record is 
to be used as both an alphameric and a 
numeric field, the field must be specified 
twice by assigning two different field 
names to the same location in the record. 



(If no decimal positions are s 
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field, its appropriate control level must 
be specified in columns 59-60. The first 
three lines in Figure 52 show the entries 
for the three control fields. 

The field DIVNO (first entry in the 
example) is the highest level of control. 

The indicator L3 could be used to 
specify when the calculation specifications 
for the control field DIVNO are to take 
place, or when the totals for the field 
DIVNO are to be printed or summarized. 
More information regarding the use of the 
control level indicators is presented in 
the descriptions of the calculation and 
output specifications sheets. 

NOTE: Whenever control levels are used, a 
control break will occur on the first rec- 
ord of a record type which has control 
levels. Total calculations, total lines 
and overflow lines are bypassed until after 
the control break occurs. 



Additional Functions of Control Level 
Specifications 

If a field specified in Field Location 
also has an entry in Control Level , the 
object program places the field into two 
storage areas. One area, known as a 
control-field holding area, is used for 
the controlling functions of the field, and 
the other is used for any other uses of the 
field (such as for printing or for arith- 
metic calculations) . 

When an alphameric field is used as a 
control field, the zone bits in the field 
are used in the comparison of one record 
to the next. To use an alphameric field 
for controlling functions without 
considering the zone bits, specify the 
field as numeric by making an entry in 
Decimal Positions . In Figure 52 the 
field DIVNO is used for controlling 
functions. The entry L3 causes the value 
of the field DIVNO to be stored in the 
control-field holding area in packed 
format with a plus sign of _C_. The sign 
of the value is _C_ regardless of the sign 
of the input field. 



Split Control Fields 

Several fields in an input record can be 
specified as one control field. In the 
lower half of Figure 52, three fields, 
which are not in adjacent record positions, 
are specified with the same L4 control 



level. The three fields are treated as one 
control field: 



CUSNO 



ACTNO 



REGNO 



The first field defined on the input sheet 
is placed in the high-order position, and 
the last field is placed in the low-order 
position. All fields are placed accord- 
ing to the sequence in which they are 
defined on the Input Specifications sheet. 



Using Split Control Fields with Field- 
Record Relation 

The use of the Field-Record Relation speci- 
fication in conjunction with control level 
indicators permits the programmer to define 
the same control level for split or non- 
split control fields in various record 
types. This is illustrated in Figure 53 
and Figure 54. 

The following points must be considered 
when using field-record relation indicators 
with split control field specifications. 

1. The overall field length for each con- 
trol level must be the same in each 
group. 

2. The sum of the split control fields 
cannot be greater than 256 bytes. 

3. Split control fields of any one level 
are arranged in storage in the same 
sequence as they appear in the input 
specifications . 

4. If a field-record relation indicator is 
specified for a control level, the re- 
lated field location is used for con- 
trol purposes whenever that indicator 
is on. The examples that are identi- 
fied by the circled numbers in Figure 

5 3 illustrate this point. 

1 When either indicator 93 or 94 is 
on, LI is composed of positions 
1-5 and 6-10. 

2 When indicator 91, 93, or 94 is on, 
L2 is composed of positions 11-20. 

3 When indicator 92, 93, or 94 is on, 
L3 is composed of positions 21-40. 
A control level with a blank field- 
record relation indicator is used 
for control purposes when all indi- 
cators that condition any field with 
the same control level are off. 

4 To specify a portion of a split 
control field as being common to 
several record types, repeat that 
portion of the field definition 
with each record type indicator. 
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Figure 53. Example of Multiple Split-Control-Field Specifications 



MATCHING FIELDS OR CHAINING FIELDS (61-62) 

This specification is used if the input 
consists of more than one file. It pro- 
vides the program with the ability to match 
or to chain the records of one file with 
those of another file. 



Matching Fields 

Up to three matching fields (designated by 
Ml, M2, and M3) are allowed. This entry 
may be used to match records in different 
sequential files. The second sample pro- 
gram at the back of this publication uses 
matching fields in a card input file and 
a tape input file to govern processing of 
records. A discussion of this use of 
matching fields is contained in Processing 
Multiple Input Files . 

If a field specified in Field Location 
also has an entry in Matching Fields , the 
field is placed into another storage area 



known as a matching-f ield holding area. 
Comparisons of matching fields! are per- 
formed in these holding areas 
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Figure 54. Input Cards with Multiple Split Control Fields 
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An entry in the RPG Processor Control 
Card is all that is required to cause the 
RPG program to branch to the subroutine. 
The automatic branch occurs after the input 
card is read in and before the RPG program 
checks the sequence of the matching field. 

The subroutine to translate the matching 
fields must use the predefined label 
ALTSEQ. The register conventions for this 
subroutine are the same as those for the 
EXIT operation. (See Exit to a Subroutine. ) 
The address of the matching-field holding 
area will be contained in Register 1. The 
subroutine must place the translated fields 
back into the matching-f ields hold area 
before it returns control to RPG. 



Chaining Fields 

The use of chaining files is explained in 
the section Chaining. Up to nine chaining 
fields are permitted in a record. In these 
columns enter the code that identifies the 
chaining field (CI through C9) . 



Figure 55. Using Matching Fields to 

Sequence Check in a Single 
Input File 



descending sequence. In Figure 56 assume 
that the file has been specified in ascend- 
ing sequence. The number 003051008 is 
lower than 005025003. Thus, the file is in 
ascending sequence. 

NOTE: A chaining file may also be sequence 
checked. However, if it is the chaining 
field that is to be sequence checked, it 
must be defined twice using two different 
field names. The chaining indicator is 
entered in one field definition and the 
matching fields indicator in the other. 

If the file is not in sequence the Halt 
indicator HO is turned on. Unless this HO 
indicator is turned off by a SETOF opera- 
tion (See Turning Indicators On or Off) in 
the calculation specifications, the program 
terminates before the next input record is 
read. 

Exit to External Translate Subroutine . 
If the sequence of the matching fields is 
not the same as the collating sequence of 
the System/360, the RPG program can provide 
an automatic exit to an external user sub- 
routine that translates the sequence of the 
matching fields to the collating sequence 
of the system. 



FIELD-RECORD RELATION (63-64) 

This specification is used when there are 
records in an OR relationship and the 
fields of the records are not in the same 
location. Enter in columns 63-64 the ap- 
propriate resulting indicator which will 
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be on when the field is used. An explana- 
tion of the use of this specification was 
contained in Records in an OR Relationship, 
and an example of this specification is 
provided in Figure 50. 



Using Field-Record Relation with Chaining 
Files 



Field Status Conditions 



Plus . A plus condition occurs when the 
value of a numeric field is greater than 0, 



An additional function of this specifica- 
tion is to selectively control chaining 
operations. (See Chaining for a general 
explanation of chaining. In order to 
understand this function, readers should 
be familiar with chaining operations and 
with the use of the Calculation Specifica- 
tions sheet. ) 

If a chaining field is specified on a 
field description line and Field-Record 
Relation is blank, the chained record will 
be obtained whenever the record type (for 
the chaining field) is present. However, 
if a resulting indicator is placed in 
Field-Record Relation , then the chained 
record will be obtained only if the record- 
type is present and the resulting indicator 
(in Field-Record Relation) is on. 

This feature provides the programmer 
with the ability to utilize chaining files 
on a selective basis. The function of this 
feature of Field-Record Relation is similar 
to the function of controlling calculations 
by the status of resulting indicators. 

A variation of the use of this function 
of Field-Record Relation is to control two 
chained files with one chaining field. For 
example, the chaining field would be speci- 
fied twice on the Input Specifications 
sheet. Each specification line would be 
conditioned by a separate resulting indica- 
tor. The particular chained record ob- 
tained would depend upon the status (on or 
off) of the approprj ate resulting indica- 
tor. 



FIELD INDICATORS (65-70) 

This specification is used to test the 
status of a field when it is read into the 
system. Depending upon the status of the 
field ~ plus, minus, or zero or blank — 
it turns on an indicator that can be used 
to control calculation and output specifi- 
cations, or even to stop the processing of 
the object program. 

The entry for the specification is an 
indicator which will be turned on when the 
field specified on the line is plus, minus, 
or zero or blank. 



Minus. 



A minus condition occurs when the 



value of the numeric field is less thar 
zero. 

Zero or Blank. A zero-or-blank condition 
occurs if a numeric field contains all 
zeros or blanks, or if an alphameric field 
contains all blanks. It is turned on if 
a numeric field is either +0 or -0. 

NOTE: For alphameric fields, columns 65 
through 68 must be blank. 



Types of Indicator Codes Used 

A 2-digit field indicator code is used for 
this specification. These codes, ranging 
from 01 to 99 can be defined one or more 
times on the form. If they are defined 
more than once, the second specification 
of this indicator resets it from the status 
it may have had by the previous specifica- 
tion for it. 

NOTE: "Defining" these indicators means 
specifying them on the input form in 
Resulting Indicators or in Field Indicators . 
This should not be confused with "using" 
these indicators. "Using" these indica- 
tors means specifying them in Indicators on 
the calculation form or in Output Indica- 
tors on the output form as many times as 
required. In the latter case, they are 
merely tested to determine their status 
and not reset by the test. 



Halt Indicators 

There are ten additional indicator codes, 
known as Halt indicators that can be used 
in the RPG program. These indicators, 
designated as HO through H9, halt the 
processing of the object program when error 
conditions (as determined by the program- 
mer) have been detected. These indicators 
can also be used in calculation and output 
specifications sheets to control specifica- 
tions and stop processing. For example, 
the status of a field can be tested, and 
depending upon the results of the tests, a 
halt indicator may be set on which termin- 
ates the object program. 

If one of these indicators has been 
turned on during the processing of a record, 
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the object program terminates at the com- 
pletion of the processing of that record. 
However, processing will not be interrupted 
if a halt indicator that has been turned 
on is turned off (in the program) before 
the program attempts to read the next 
input record. 

The HO indicator can also be turned 
on automatically by the RPG program. 
The conditions that cause HO to be turned 
on automatically are listed in Appendix H. 
Unless HO is turned off by a SETOF opera- 
tion (see Turning Indicators On or Off ) in 
the calculation specifications, the pro- 
gram terminates before the next input 
record is read. 



Use of Field Indicators 

The field indicator 07 in Figure 57 is 
used to determine if FLDB contains zeros or 
blanks, and Indicator 06 is used to deter- 
mine if the value contained in FLDA is pos- 
itive. Indicator 07 and 06 would both be 
used to control functions in the calcula- 
tion and output specifications that must be 
altered or modified depending on the status 
of FLDA and FLDB. 

NOTE: Use of Indicators H0-H9 as field 
indicators testing zero or blank (69-70) 
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causes the program to terminate as the first 
record is read because any indicators used 
in (69-70) are initialized on. 



How Field Indicators are Turned Off and On 

Indicators used for testing for plus and 
minus conditions, are "set" (turned on or 
off) if their respective conditions occur 
when a record is read into the system. 
Each field indicator is related to only one 
record type. Therefore the indicators are 
not reset (turned on or off) until the re- 
lated record type is read again or until 
the indicator number is defined in some 
other specification. One or more field 
indicators can be on at one time. 

Indicators used for testing for zero or 
blank conditions are set in the same 
manner as those used for testing for plus 
and minus conditions. They can, however, be 
reset by one other condition. The output 
specification Blank After causes a field to 
be set to blanks or zeros (depending upon 
whether the field is alphabetic or numeric) 
after execution of the output operation 
specified. If the field being reset to 
blanks or zeros is an input field that is 
being tested for zero or blank, the field 
indicator specified for it is turned on 
when the field is set to blanks or zeros 
by the Blank After specification. 

Any plus or minus indicators associated 
with the field are not turned off by virtue 
of the Blank After specification. All zero 
or blank indicators are initialized on at 
the beginning of the program to reflect 
the initial status of the associated fields. 
(All fields defined in an RPG program are 
initialized to zero if numeric or blank if 
alphameric.) The indicators remain on until 
the status of the associated fields change 
as a result of an input record being read 
or a calculation being performed. 

STERLING (71-74) 

Enter in these columns the position in the 
record that contains the sign of the 
sterling field. If the sign is in the nor- 
mal position, enter an S in column 74. 
Leading zeros may be omitted. Leave these 
columns blank if the sterling specification 
is not used. Additional information on 
Sterling is in Appendix D. Sterling Routines 
for the Report Program Generator . 

SUMMARY OF INPUT SPECIFICATIONS 

This concludes the description of the input 
specifications. Additional information on 
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matching or chaining fields may be found in Matching Fields 

Processing Multiple Input Files . The in- Field Indicators 
put specifications listed below are used 

with the calculation and output forms. The use and function of these specifica- 
tions may become more apparent to the 

Resulting Indicator reader after the descriptions of the cal- 

Field Name culation and output specifications have 

Control Level been read. 
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CALCULATION SPECIFICATIONS SHEET 



This sheet is used to specify the opera- 
tions to be performed by the generated pro- 
gram upon the input data and upon data 
obtained as a result of other calculations. 
Two general rules govern the writing of 
calculation specifications: 

1. Each operation is specified on one 
line of the sheet. Operations must be 
listed in the order in which they are 
to be performed in the program. 

2. Detail calculations must precede all 
total calculations. Calculations with- 
in these two groups must be specified 
in the order in which they are to be 
performed on the data. 

The calculation sheet is divided into 
three categories as shown in Figure 58 : 

1. When calculations are to be performed . 
These entries (columns 7-17) determine 
when the calculations are to be per- 
formed and upon what conditions they 
are to be performed. 

2. What kind of calculations are to be 
performed. These entries (columns 18- 
53) determine the kind of calculations 
to be performed, such as add, subtract, 
multiply, etc. These entries also 



supply information about the result of 
the calculation. 
3. What tests are to be made on the results 
of the calculations . These entries 
(columns 54-59) test the results of the 
calculations to modify subsequent cal- 
culations or output specifications. 



SPECIFYING WHEN CALCULATIONS ARE TO BE 
PERFORMED 

The two specifications in this category are 
Control Level and Indicators. 



CONTROL LEVEL (7-8) 

Calculations are performed at either detail 
time or total time. This specification 
indicates the control level of specifica- 
tions performed at total time. An entry 
in Control Level determines when the calcu- 
lation specified in positions 18-59 of the 
line is to be performed. 

The entries for this specification are 
the control level indicators Ll through 
L9, and the indicators LO and LR. 

A test for a control change is made 
after each record is read into the system. 
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Total calculations are performed after 
this test is made and before the record 
that caused the control change is proc- 
essed. 

Control level indicators are turned on 
by control breaks. Whenever a control 
break occurs, the indicator for the new 
control level and all indicators for the 
lower-order control levels are turned on 
at the same time. A change to control 
level 3, for instance, causes the Indica- 
tors L3, L2, and LI to be turned on. 

A control level indicator remains on 
during total time and during the sub- 
sequent detail time, which includes both 
the calculating and the printing of the 
detail record. 

If an object module has only detail 
calculations, this specification is left 
blank. The indicators that control detail 
calculations are specified in Indicators 
(Columns 9-17) . However, Columns 9-17 
may also be used to control total calcu- 
lations. 

The next two paragraphs describe the 
indicators LR (Last Record) and LO (Level 
Zero) . 
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Using Control Level Specifi- 
cations 



LR (Last Record) Indicator 

This indicator is turned on after the last 
input record has been read and calculated 
and after the appropriate detail records 
are put out. At this time the control 
level indicators LI through L9 are also 
turned on. 

If there is more than one input tile, 
the programmer determines which files are 
to be checked for the last record. This is 
accomplished in the File Description Speci- 
fications sheet. 

LR is turned on when all files with an 
LR specification have been completely 
read. 



LO (Level Zero) Indicator 

The Level Zero indicator is on throughout 
the execution of the object module. It 
is used to specify total calculations to 
be performed at a time when no control 
break has occurred. 

The LO indicator can be used, for in- 
stance, to accumulate a total for each 
page of a report, even though there is no 
control break at the end of a page. 

Figure 59 illustrates six Control Level 
specifications. 



INDICATORS (9-17) 

The entries in columns 9-17 indicate the 
conditions that control the calculations 
specified in columns 18-59. Indicators can 
be specified in these columns for both 
total and detail calculations . From one 
to three indicator codes considered to be 
in an AND relationship means that if three 
indicator codes are specified, all three 
indicator conditions must be satisfied be- 
fore the calculation can take place. It 
is not possible to have an OR condition 
with this specification. 

Enter in columns 10-11, 13-14, and 16-17 
the indicators that determine when the cal- 
culation is to be performed. If an indi- 
cator must be off, enter an N in either 
column 9, 12, or 15 (whichever is appro- 
priate) . 

The specifications used in these columns 
can be arranged into the following categor- 
ies : 

1. If columns 9-17 and columns 7-8 are 
blank, the calculation specified on the 
line is performed each time a detail 
record is read. 

2. A resulting-indicator code determines 
the particular record type on which the 
calculation is to be performed. This 
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calculation will not be performed on 
any other record type. 

3. A field-indicator code controls the 
calculation according to the status of 
an input field. 

4. A resulting-indicator code controls 
the calculation by conditions that 
occurred on previous calculations. 
(This feature is shown on the Calcu- 
lation Specifications sheet, columns 
54-59, but it has not been discussed 
at this time.) 

5. A control-level indicator, L1-L9, used 
with a particular resulting indicator 
permits the calculation to be per- 
formed at detail time, but it is per- 
formed only on the first record of the 
control level specified. 

6. The MR, matching-record, indicator 
code means that the calculation is 
performed only if there is a matching 
record in a second input file. 

7. The halt indicators HO through H9 are 
normally used to terminate the program 
or to suppress a calculation when an 
error has been detected on a previous 
calculation. 

8. The overflow indicators permit the 
calculation to take place only if a 
page overflow has occurred. 

9. All total calculations will be bypassed 
until the first control break has 
occurred. 

In addition, this specification entry 
(columns 9-17) may contain a combination 
of some of the preceding categories. Also, 
a calculation may be controlled by the fact 
that an indicator must not be on. 

Figure 60 shows entries that may be 
made in columns 9-17. The numbers to the 
right of the entries refer to the follow- 
ing list: 



1. The first example is a blank entry. 
This means that the calculation is 
performed on every detail record. 

2. In this example, Indicator 16 could be 
a resulting indicator for a specific 
record type. 

3. In this example, Indicator 16 could be 
a resulting indicator, and Indicator 18 
could be a field indicator, which is 
specified on the Input Specifications 
sheet. If Indicator 18 is used to 
test an input field for blanks, this 
entry means, in effect, that the cal- 
culation would be performed if record- 
type 16 is present and the contents 

of the field represented by Indicator 
18 is not blank. 
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Figure 60. Using Indicators 

4. This example is similar to the previous 
example. However, Indicator 19 could 
be a resulting indicator turned on by 
the previous calculation. The calcu- 
lation specified on this line in col- 
umns 18-59 would not be performed 
unless Indicator 19 was also on. 

5. This entry means that the calculation 
is performed at detail time on control- 
level 1, and only if Indicator 24 is 
on. 

6. This entry means that the calculation 
is performed only if Indicator 16 is 
on and there is a matching record 
condition. For example, when fields 
from detail records are multiplied by 
a factor contained in a master record, 
the program must have a way of ensur- 
ing that the detail record has been 
matched with the appropriate master 
record. 

7. The entry of NH1 prevents the object 
program from performing the calcula- 
tion if an error condition has occurred. 
Note that when an error occurs, the 

job is not terminated until after all 
processing for the record has been 
completed. This facility is pro- 
vided so that the programmer can pre- 
vent the calculation of erroneous data. 

8. This entry means that the calculation 
is performed on the detail cycle fol- 
lowing an overflow condition. 
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SPECIFYING THE KIND OF CALCULATION 



Rules for Forming Alphameric Literals 



In order to describe the kind of calcu- 
lations to be performed, the following 
conditions must be considered. 

1. The fields to be used 

2. The arithmetic operation to be per- 
formed 

3. The disposition of the results 



FACTOR 1 (18-27) 

This specification can be a field name 
or a literal. If it is a field name it 
must have been defined on the Input 
Specifications sheet, or it must be de- 
fined in the result field of a calculation. 
The field name must be left-justified, and 
the first character must be alphabetic. 



Literal 

A literal is the actual data to be opera- 
ted on, rather than a name representing 
the location of data. Literals may be 
numeric or alphabetic. Numeric literals 
may be up to ten characters long. Alpha- 
meric literals may be up to eight charac- 
ters long. 



Numeric Literals 

A numeric literal can consist of any com- 
bination of the numbers 0-9. One decimal 
symbol and/or one plus sign or one minus 
sign may also be used. 



Rules for Forming Numeric Literals 

1. Blanks must not appear within a numeric 
literal. 

2. The sign, if present, must be the left- 
most character. If a literal is un- 
signed, it is treated as a positive 
literal. 

3. The decimal symbol can appear anywhere 
in the literal. 

4. Numeric literals must not be enclosed 
in apostrophe symbols. 



Alphameric Literals 

Any set of consecutive characters enclosed 
in a set of apostrophe symbols is treated 
as an alphameric literal. (The apostrophe 
is a 5,8 punch.) Alphameric literals may 
not be used in arithmetic operations. 



1. Any character may be used in an alpha- 
meric literal. Blanks are treated as 
valid characters in the body of the 
literal. 

2. Alphameric literals must be enclosed in 
a set of apostrophe symbols. 

3. An apostrophe symbol may be contained 
within a literal by entering two con- 
secutive apostrophe symbols within the 
literal. For example, the literal 
o'clock would be coded as 'o' 'clock' . 

Figure 61 illustrates entries for 
Factor 1. The numbers in circles refer 
to the items listed below. 

1. GROSS could be a field name specified 
on the input sheet. 

2. NETAMT could have been specified as 
the result field of the previous 
calculation. 

3. This numeric literal could be used in 
the program to determine if specific 
fields in the input records were high- 
er or lower than this number. The 
position of the decimal symbol must be 
indicated if the number is not a whole 
number. 

4. Alphameric literals, like the one in 
this example, can be used to compare 
against a data field in the input 
records to perform certain types of 
calculations only upon records repre- 
senting the month of January. 

The description of Factor 1 also applies 
to Factgr g. 
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Summary of Factor 1 and Factor 2 



Turning Indicators On or Off 



Code 



1. Enter either the name or the literal 
that is Factor 1 or Factor 2 in col- 
umns 18-27 or 33-42. 

2. If Factor 1 or Factor 2 contains the 
name of a field, the field must be de- 
fined in either: 

a. Columns 53-58 ( Field Name ) of the 
Input Specifications sheet. 

b. Columns 43-48 ( Result Field ) of 
the Calculation Specifications 
sheet. 

3. A name cannot exceed six characters. 
Special characters and blanks must not 
be used. 

4. A numeric literal cannot exceed ten 
characters; an alphameric literal can- 
not exceed eight characters. 

5. Entries in Factor 1 or Factor 2 must 
be left-justified. 



OPERATION (COLUMNS 28-32) 

Entries in these columns specify the 
operations to be performed using Factor 1 , 
Factor 2, and Result Field . Each opera- 
tion is specified by placing the operation 
code in Operation (columns 28-32) . 



Arithmetic Operations 

Add 

Zero and Add 

Subtract 

Zero and Subtract 

Multiply 

Divide 

Move Remainder 

Move Operations 

Move 

Move Left 

Move High-to-Low Zone 

Move Low-to-High Zone 

Move High-to-High Zone 

Move Low- to-Low Zone 

Testing or Compare Operations 

Compare 
Test Zone 

Branching and Exit Operations 

Branching (or GOTO) 
Providing a Label for GOTO 
Exit to a Subroutine 
RPG Label 
User Label 



Code 

ADD 

Z-ADD 

SUB 

Z-SUB 

MULT 

DIV 

MVR 

Code 

MOVE 

MOVEL 

MHLZO 

MLHZO 

MHHZO 

MLLZO 

Code 

COMP 
TESTZ 

Code 

GOTO 

TAG 

EXIT 

RLABL 

ULABL 



Set Indicators On SETON 

Set Indicators Off SETOF 

Table Operations Code 

Table Lookup LOKUP 

Conversion Routine Operations Code 

RPG Conversion Routine RPGCV 

End of RPG Conversion ERPGC 

External Conversion Routine EXTCV 

Record Key KEYCV 

Arithmetic Operations 

The fields or literals involved in these 
operations may contain numeric characters 
only. All arithmetic operations are per- 
formed with automatic decimal alignment. 
Resulting indicators can be used with all 
arithmetic operations. 

No arithmetic overflow will be sensed by 
RPG. The length of a field involved in 
arithmetic operations can be up to 15 dig- 
its (this includes decimal alignment when 
necessary) . The resulting field length 
after decimal alignment must not be greater 
than 15 digits. 

Add (ADD) 

This operation causes the contents of the 
field or the literal in Factor 2 to be 
added, algebraically, to the contents of 
the field or literal in Factor 1 . The 
result of the operation is placed in the 
result field specified in Result Field 
(columns 43-48) . 

Zero and Add (Z-ADD) 

This operation causes the field specified 
in Result Field to be set to zeros and then 
causes the data contained in the numeric 
literal or the field in Factor 2 to be 
placed in the Result Field . Factor 1 is 
not used in this operation. 

Subtract (SUB) 

This operation causes the contents of the 
field or literal in Factor 2 to be sub- 
tracted, algebraically, from the contents 
of the field or literal in Factor 1 . The 
result of this operation is placed in the 
Result Field specified. 
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Zero and Subtract (Z-SUB) 

This operation causes the negative of the 
number contained in the literal or the 
field in Factor 2 to be placed in the 
result field specified. This operation is 
performed after the result field has been 
set to zeros. Factor 1 is not used in 
this operation. 



Multiply (MULT) 

This operation causes the contents of the 
field or literal in Factor 1 to be multi- 
plied algebraically by the contents of the 
field or the literal in Factor 2 . The 
result of this operation is placed in the 
result field specified. 



Divide (DIV) 

This operation causes the contents of the 
field or literal in Factor 1 to be divided 
by the contents of the field or literal in 
Factor 2 . The result of this operation 
(quotient) is placed in the specified re- 
sult field. The contents of the field or 
the literal in Factor 2 cannot be zero. 

If factor 2 is zero, a program check 
and an abnormal end-of-job will result. 

The following field length restrictions 
apply to this operation: 



Lt_ + (D 2 - D 1 + D r ) <; 15 
L 2 - (D 2 - D x + D r ) £ 15 



and if half-adjusting is specified 
L x + (D 2 - D x + D r ) * 14 

where 

L± = length of Factor 1 (dividend) 

L 2 = length of Factor 2 (divisor) 

D± = decimal positions of Factor 1 

D 2 = decimal positions of Factor 2 

D r = decimal positions of Result Field 

NOTE: Invalid results are obtained if the 
formula is violated. 

Any remainder that results from this 
operation is lost unless the move-remainder 
operation is specified as the next opera- 
tion in the program. 

NOTE: If a move-remainder operation fol- 
lows a divide operation, the result in the 
divide operation cannot be half-adjusted. 



Move Remainder (MVR) 

This operation is used to move the remain- 
der from a divide operation to a separate 
field. If MVR is used, it must immediately 
follow the divide operation. The divide 
may not be half adjusted. Figure 62 shows 
an example of the MVR operation. The re- 
mainder is placed in a field named STORE. 
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The field that is to contain the remainder 
must be specified in Result Field . 

The value of the remainder can be deter- 
mined by the following formula: 

R = (Dividend) - [(Divisor) x (Quotient)] 

For the above equation to be valid in a 
divide operation involving factors contain- 
ing decimal positions, the result field 
that is to contain the remainder must pro- 
vide for the decimal positions in the re- 
mainder based on the sum of (D„ + D ) or 

2 r 
D, , whichever is greater. 

NOTE: Resulting indicators can be 
specified for the MVR operation. 



Move Operations 

For the MOVE and MOVEL operations, numeric 
fields may be changed to alphameric fields 
and alphameric fields may be changed to 
numeric fields. To change a numeric field 
to an alphameric field, Factor 2 is numer- 
ic, and the result field is specified as 
alphameric. To change an alphameric 
field to a numeric field, Factor 2 is 
alphameric, and the result field is speci- 
fied as numeric. No decimal alignment is 
performed when a move operation is used. 
Resulting indicators can be used with 
all move operations. 



Move (MOVE) 

This operation code causes data characters 
(starting at the rightmost position) to be 
moved from the field or literal contained 
in Factor 2 to the rightmost positions of 
the result field. 

If Factor 2 is longer than the result 
field, the excess leftmost positions of 
Factor 2 are not moved as illustrated in 
Figure 63. 

If the result field is longer than the 
field specified by Factor 2, the positions 
to the left of the data that is moved 
remain undisturbed as illustrated in 
Figure 64. 

Factor 1 is not used in this operation. 



Move Left (MOVEL) 

This operation code causes data characters 
(starting at the leftmost position) to be 
moved from the field or literal contained 
in Factor 2 to the leftmost positions of 
che result field. 

If Factor 2 is longer than the result 
field, the excess rightmost positions of 
Factor 2 are not moved. This is illus- 
trated in Figure 65. 



Before Move 
Operation 



Result Field 



Factor 2 




Figure 63. Move Operation -- Factor 2 
Longer than Result Field 

If the Result Field is longer than the 
field specified by Factor 2 , the positions 
in the Result Field to the right of the data 
that was moved remain undisturbed as shown 
in Figure 66, insert A. 

When moving data to a numeric field, the 
determination of the sign is an important 
consideration. In Figure 66, inserts B and 
C, the underlined digits in Factor 2 indicate 
the position of the sign. If the Result 
Field is longer than Factor 2 as shown in 
Figure 66, insert B, the original sign of 
the Result Field is retained. However, if 
Factor 2 is as long or longer than the Resu lt 
Field as shown in Figure 66, insert C, the 
sign of Factor 2 is assumed by the Result 
Field and is indicated by the underlined 
digit in the Result Field . 

Factor 1 is not referenced by this opera- 
tion. 

Before Move 
Operation 



Result Field 



LJLi 



1 i 2 , 3 



i ' ■ B ' y ' 



Factor 2 



3 , 4 



I * I J I 




After Move 
Operation 



111213,4,1,2,3,4,51 ,1,2,3,4,5 



Figure 64 



Move Operation -- Factor 2 
Shorter than Result Field 



Calculation Specifications Sheet 61 





Operation 

28 29 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Result Field 

43 44 45 46 47 48 


Fi.ld 
longth 

49 50 51 


j 

1 

1 

52 


X 

-g 
■< 

* 
a 
X 

53 


Resulting 
Indicators 






Plu> 


Minul 


Z«ro 




tor 1 


Compare 


Comn 




High 
1>2 


Low 
l<2 


Equal 
1 =2 




23 24 25 26 37 


54 55 


56 57 


58 59 


60 61 62 63 64 65 66 67 




MOVEL 


FLDA 


FLDB 


4 


t 

























































FLDA 



Figure 65. Using the MOVEL Operation Code 



FLDB 



10 
10 



Move High-To-Low Zone (MHLZO) 

This operation moves the zone at the left- 
most position of Factor 2 to the rightmost 
position of the result field. 

Figure 67 illustrates the movement of 
zones for all four move zone operations. 

Factor 2 can only be alphameric. If 
the zone to be moved is located over 



numeric data, this operation can still be 
performed; however, the numeric .field must 
have been specified as an alphameric field 
on the Input Specifications sheet. 

The result field can be numeric or 
alphameric. A result field specified as 
numeric contains an _F zone for a plus sign 
or a D zone for a minus sign after this 
operation. 

Figure 68 illustrates a Move High-to-Low 
Zone operation (alphameric to alphameric) . 



Move Low-To-High Zone (MLHZO) 

This operation moves the zone at the right- 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 
can be numeric or alphameric, but the 
result field must be alphameric. 
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Figure 66. Additional Functions of the MOVEL Operation 
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Figure 67. Move Zone Operations 



Move High- To-High Zone (MHHZO) 

This operation moves the zone at the left- 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 
and the result field must be alphameric. 

Move Low- To-Low Zone (MLLZO) 

This operation moves the zone at the right- 
most position of Factor 2 to the rightmost 
position of the result field. Factor 2 
and the result field are alphameric or 



numeric. A result field specified as 
numeric contains an F zone for a plus sign 
or a D zone for a minus sign after this 
operation. 



Testing or Compare Operations 



Compare (COMP) 

This operation causes the contents of the 
field or the literal in Factor 1 to be 
compared against the contents of the field 
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Figure 68. Move High- to-Low Zone 
Operation 



or literal in Factor 2. The outcome of 
this operation can be used to turn on an 
indicator that has been specified in col- 
umns 54-59 ( Resulting Indicators High , 
Low, or Equal ) . These indicators are turn- 
ed on as follows: 

High: Factor 1 is greater than Factor 2. 
Low: Factor 1 is less than Factor 2. 
Equal: Factor 1 is equal to Factor 2 . 



• The alphameric compare operation is 
based upon the internal collating se- 
quence of the system. 

• For equal alphameric fields, the maxi- 
mum field length is 256 characters. 

• For unequal alphameric fields, the max- 
imum field length is 200 characters. 

• An alphameric field and a numeric field 
should not be compared because the re- 
sults of such a comparison are un- 
predictable. 

All numeric comparisons are algebraic. 
An absolute comparison can be performed by 
means of a short routine programmed to meet 
the user's requirements. Figure 69 shows 
an example of comparing the absolute value 
of a sum to a literal. 



Test Zone (TESTZ) 

This operation is used to test the zone of 
the leftmost position of the alphameric 
field that is entered in the result field. 
The format of a Test Zone operation is 
shown in Figure 70. 

If the result of the test is a 12-zone 
(&, A through I, 0) , the indicator specifi- 
ed in columns 54-55 will be turned on. If 
the result of_the test is an 11-zone (-, 
J through R, 0) , the indicator specified in 
columns 56-57 is turned on. Any other zone 
turns on the indicator specified in columns 
58-59. 

Figure 71 shows an example of this oper- 
ation. When Indicator 25 is on, the field 
DATA is tested. If the leftmost position 
has a 12-zone, Indicator 01 is turned on. 
If the position has an 11-zone, Indicator 02 
is turned on. 



This operation is used to make compari- 
sons to alter or modify subsequent calcula- 
tions. No result field is specified. 

• The Factor-1 and Factor-2 fields are 
aligned according to whether they are 
numeric or alphameric. If numeric fields 
are compared, fields of unequal length 
are aligned to the implied decimal point. 

• Missing digits in numeric fields are 
assumed to be zeros. 

• If alphameric fields are compared, fields 
of unequal length are aligned to their 
leftmost characters and the unused posi- 
tions are filled with blanks. 



Branching and Exit Operations 



Exit to a Subroutine (EXIT) 



This operation code enables the programmer 
to transfer control from the RPG program 
to a user subroutine. Factor 2 contains 
the name of the subroutine. The name of 
the subroutine cannot be greater than six 
alphameric characters; the first character 
must be alphabetic. Factor 1 and the Re- 
sult Field are not used. See EXIT to a 
User's Routine for a complete discussion 
of this operation. 
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Figure 69. Example of an Absolute Compare Routine 
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Figure 71. Using a Test Zone Operation 



RPG Label (RLABL) 

This operation provides the facility for 
a subroutine, external to the RPG program, 
to reference a field in the RPG program. 
The name of the field to be referenced is 
entered in Result Field . 

The field must be a valid numeric or 
alphameric field, an indicator, or a table. 
The use of an indicator or table as an 
RLABL is explained in the section Using 
Tables and Exit Routines in the Object 
Module. 

Field length and decimal position must 
be defined in (unless defined by a pre- 
ceding entry in either the input or calcu- 
lation specifications) the Result Field of 
a RLABL entry. The field name may be from 
one to six alphameric characters. The first 
character must be alphabetic. Indicators , 
Factor 1, and Factor 2 are not used. 



User's Label (ULABL) 

This operation enables the RPG program to 
reference a field contained in a user sub- 
routine. The name of the field to be ref- 
erenced is entered in Result Field . This 
name may be from one to six alphameric char- 
acters; the first character must be alpha- 
betic. Indicators , Factor 1 , and Factor 2 
are not used. The field length and decimal 
positions must be defined. 



Branching or Go To (GOTO) 

The operation code GOTO enables branching 
to occur in the generated program. This 



means leaving one point in the program to 
begin operations at some other location in 
the program. The location of the other 
routine is identified by a name. This name 
is entered in Factor 2 and the code GOTO is 
entered in Operation (columns 28-32) . For 
example, a routine T a group of specifica- 
tions) to calculate the employee contribu- 
tion to the Federal Insurance Contribution 
Act might be labeled FICA. Branching to 
this routine would require that Factor 2 of 
the GOTO operation contains the name FICA 
and that the first operation in the routine 
be a TAG operation, that is, an operation 
that defines the name of the routine being 
branched to (refer to description of next 
operation code) . 

Branching can be performed within detail 
calculations, within total calculations, and 
from detail to total calculations, but not 
from total to detail calculations. Branching 
can be forward or backward, skipping over 
specifications or going back over specifica- 
tions previously skipped or processed. 

If GOTO occurs at total time, Control 
Level (Columns 7 and 8) of the specifica- 
tion must have a control level specifica- 
tion (LI through L9, L0, or LR) . If it 
occurs at detail time, a control specifi- 
cation is not required. Factor 1 and the 
Result Field are not used in this operation. 

For additional information see Using the 
Calculations Sheet. 



Providing a Label for GOTO (TAG) 

The operation TAG provides a name to which 
the program can branch. Enter this name 
in Factor 1 and the code TAG in Operation 
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(columns 28-32) . The name will be used as 
Factor 2 of the operation code GOTO. 

If the TAG operation occurs at total 
time, Control Level (columns 7 and 8) of 
the specification must have a control level 
specification (LI through L9, LO, or LR) . 
If it occurs at detail time, a control 
specification is not required. Factor 2 
and the Result Field are not used. 



Turning Indicators On or Off 



NOTE: The column headings of Plus, Minus , 
or Zero and High, Low, or Equal have no 
meaning during this operation and should 
be ignored. Columns 54 through 59 are 
used — for this operation code — merely 
to record three sets of indicator codes. 



Set Indicators On (SETON) 

This operation code causes the indicators 
specified in columns 54-55, 56-57, or 
58-59 to be turned on. 

Specify the first indicator in columns 
54-55, the second indicator in columns 
56-57, and the third indicator in columns 
58-59. One use of this specification is to 
turn on a halt indicator when input records 
are out of sequence. Any RPG indicator, 
except LO and 00, can be turned on. Fig- 
ure 72 shows an example of this facility. 
The 01 is an indicator that is set on for 
the first record of a sequence. The L3 is 



a control level that occurs with the first 
record of the sequence. If such a situa- 
tion (L3 and 01) does not occur, the Halt 
Indicator Hi is turned on. 



Set Indicators Off (SETOF) 

This operation code causes the indicators 
specified in columns 54-55, 56-57, or 58-5< 
to be turned off. Any RPG indicators, ex- 
cept LO and 00, can be turned off. 

For example, when an L3 break occurs, 
L1-L3 are turned on. If the user did not 
want LI on, he could have turned it off by 
using the SETOF operation code. 



Table Operations 



Table Lookup (LOKUP) 



Table lookup allows the RPG program to look 
up a table contained in core storage and 
procure from it specific data needed in the 
calculations. A table may consist of a set 
of arguments or a set of functions. Tables 
may be arranged in either ascending or de- 
scending sequence, or they may be out of 
sequence. 

All tables used in an RPG program are 
loaded into core storage at program object 
time. They are loaded into the program in 
the same sequence that they appear on the 
File Extension sheet. 
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Figure 72. Using SETON for a Record Out of Sequence 
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The LOKUP operation code causes the con- 
tents of the field or literal contained in 
Factor 1 to be used as the search argument. 
Factor 2 contains the name of the argument 
table to be searched, and the Result Field 
contains the table name from which the as- 
sociated function will be obtained. Deci- 
mal alignment is not performed for this 
operation. (The Result Field may be left 
blank if the associated function is to be 
located but not retrieved from the table.) 

The use of two resulting indicators 
causes the RPG program to look up that 
table entry that is high or equal, or low 
or equal in relation to the search argu- 
ment. 

After the lookup operation is completed, 
the function that is retrieved is placed in 
a special holding area for the function 
table. The name of this area is the same 
as the name of the function table . 

To utilize the function in another opera- 
tion (for example in an arithmetic opera- 
tion) , the name of the function table is 
specified in Factor 1 or Factor 2 . In 
this case, the function table name (in Fac- 
tor 1 or Factor 2) refers to the special 
holding area in the function table. 

To update the function table (for exam- 
ple, a move operation to replace the old 
function with the new updated function) the 
name of the function table is specified in 
the Result Field . The new function is then 
placed in its proper place in the function 
table and in the special holding area. 

After each table lookup operation, the 
retrieved function should be used (or moved 
from the special holding area to another 
location) before the next table lookup 
operation is performed. Each subsequent 
lookup operation overlays the function ob- 
tained from the previous lookup operation. 

See Using Tables in the Object Module 
for additional information and examples of 
table lookup operations . 



Conversion Routine Operations 



RPG Conversion (RPGCV) 

This operation code is used to indicate 
that the track-address conversion routine 
is coded on the RPG Calculation Specifica- 
tions sheet. Factor 1 contains the name 
(label) of the conversion routine. This 
name must also be specified on the File Ex- 
tension sheet in columns 27-32. The Result 
Field contains the name of the field that 



contains the relative track address. This 
field must be alphameric and must have a 
length of 3. Indicators and Factor 2 are 
not used. 



End of RPG Conversion (ERPGC) 

This entry terminates the conversion-step 
entries that have been coded on the Calcu- 
lation Specifications sheet. No other 
entries are necessary. 

Indicators , Factor 1 , Factor 2 , and Re- 
sult Field are not used. 



External Conversion Routine (EXTCV) 

This entry is used to indicate that the 
track-address conversion routine is exter- 
nal to the RPG language. 

Factor 1 contains the label specified 
on the File Extension sheet in columns 
27-32. 

The Result Field contains the name of 
the field that will contain the track ad- 
dress. This name is defined in the RPG 
program by this operation and must not be 
defined in the external routine. The field 
must be alphameric and must have a length 
of 3. 

Factor 2 must contain the name of the 
external conversion subroutine that the 
RPG program branches to. The specification 
Indicators is not used. 



Record Key (KEYCV) 

This operation code establishes the name of 
the field that is to contain the key of the 
disk record. (It is used only when records 
are retrieved using record key data.) The 
code KEYCV is placed in Operation (columns 
28-32) and the name of the field is placed 
in Result Field (columns 43-48) . The field 
length and decimal positions must be speci- 
fied if the field has not been defined pre- 
viously. Indicators , Factor 1 , and Factor 
2. are not used. 

The operation must follow the RPGCV or 
EXTCV operation. The name of the field 
that will contain the record key is de- 
fined in the RPG program by this operation 
and must not be defined in the external 
conversion routine. 

Table 1 is a summary of the specifica- 
tion entries required for the operation 
codes just described. 
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Table 1. Summary of Operation Specifications 



O = Optional F 


= Required 


3 = blank 
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RESULT FIELD (43-48) 

This specification sets up a location in 
storage to contain the result of a calcu- 
lation. The name of the result field can 
be alphameric and must be left- justified. 

It must not contain blanks, or special 
characters and the first character must be 
alphabetic. The sign for arithmetic fields 
is always stored in the units position of 
the result field. 

The same name can be used several times 
in different calculations if the length of 
the field and the number of decimal posi- 
tions are the same for all calculations. 

Figure 73 illustrates Result Field speci- 
fications. On the first line GROSS is mul- 
tiplied by DRATE and the result field is 
established as DISCNT. This result field 
is then used as Factor 2 on the next speci- 
fication to calculate a net amount. This 
same result field is then used as Factor 1 
on the next specification line to calculate 
total discount. 



FIELD LENGTH (49-51) 

This entry specifies the length of the re- 
sult field. The entry must specify the 
number of positions to be reserved for the 
result field. In Figure 73, DISCNT is eight 



positions long. The unpacked length must 
be specified. The maximum numeric field 
length is 15 digits, and the maximum alpha- 
meric field length is 256 characters. 

If the same field name is used for more 
than one calculation and the field length 
and number of decimal positions are the 
same, the field-length specification and 
the decimal-position specification need be 
specified only for the first specification 
it is used with. 

If the result field is longer than the 
number of positions specified for it, the 
excess leftmost positions are lost. 

NOTE: If half-adjustment is specified, the 
field length entry refers to the length of 
the result field after half-adjustment. 



DECIMAL POSITIONS (52) 

An entry in this column indicates the num- 
ber of positions to the right of the deci- 
mal symbol in the result field. An entry 
must be made in this column for all arith- 
metic operations if the field has not been 
defined previously. If the result field 
does not have any decimal positions, the 
entry must be a 0. A maximum of nine dec- 
imal positions can be specified. 

This specification is the only entry 
required to determine the number of decimal 
places in a calculated result. (The deci- 
mal point of input fields is specified on 
the input specifications.) The object 
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module considers the number of decimal 
positions in both factors of an arithmetic 
operation and automatically "shifts" the 
factors or the results to provide the cor- 
rect number of decimal positions. 

In Figure 73 each result field has two 
decimal positions. 

If the result field is alphameric, this 
column must be left blank. 



HALF ADJUST (53) 

This specification is used to half-adjust, 
or round, the result field. Enter an H in 
this column if the data in the result field 
is to be half -ad jus ted. 

Half-adjusting is accomplished in the 
object program by adding an absolute value 
of 5 to the right of the last position re- 
tained in the result field. 

In Figure 73, DISCNT is half-adjusted. 

If the result field is an alphameric 
field, this specification must be left 
blank. 

If the number of decimal positions in 
the arithmetic result is less than or equal 
to the decimal positions specified for the 
pertinent result field, the half -adjustment 
specification has no effect. 

This completes the description of the 
specifications required for determining the 
kind of calculations to be performed. 



TESTING THE RESULTS OF CALCULATIONS 



The last category of specifications for the 
calculation form is Resulting Indicators. 



RESULTING INDICATORS (54-59) 

This specification may be used to test the 
value of a result field after the comple- 
tion of an operation. As the result of 
this test, an indicator is turned on which 
can be used to control subsequent calcula- 
tion operations or to control output opera- 
tions. The specification is used in five 
ways: 

1. To determine whether the result of an 
arithmetic operation is plus, minus, 
or zero. (In the case of half-adjust- 
ment, the resulting indicator refers 
to the result after half-adjustment.) 

2. To test the result of a compare opera- 
tion to determine if: 



Factor 1 > Factor 2 — High 
Factor 1 < Factor 2 — Low 
Factor 1 = Factor 2 — Equal 

3. To define the type of LOKUP operation 
to determine: 

a. If the argument next-higher than 
the search argument is found. 

b. If the argument next- lower than 
the search argument is found. 

c. If the argument equal to the 
search argument is found. 

NOTE: If an equal-search resulting 
indicator is specified, it takes pre- 
cedence over either high or low indi- 
cators if an equal-table value exists. 

4. To define a TESTZ operation as to what 
type of zone is to be tested. 

5. To define SETOF and SETON operations 
as to what indicators are to be turned 
off or on. 

The entries for this specification can 
be any of the indicator codes 01 through 99 
and the halt indicators HO through H9. 
They can be defined one or more times on 
the form. If these indicators are defined 
more than once, a subsequent specification 
of the indicator resets it from the status 
it may have had by the previous specifica- 
tion for it. 

NOTE: "Defining" these indicators means 
specifying them as resulting indicators or 
field indicators in the input specifica- 
tions, or as resulting indicators in the 
calculation specifications. This should 
not be confused with "using" these indica- 
tors. "Using" these indicators means 
specifying them in Indicators on the calcu- 
lation form or in Output Indicators on the 
output form as many times as required. In 
the latter case they are merely tested to 
determine their status and are not reset by 
the test. 

NOTE: Resulting indicators are not reset 
(turned on or off) until the next time a 
calculation is performed for which the 
program specifies the indicator as a re- 
sulting indicator. This means that one or 
more resulting indicators can be on at one 
time. 

NOTE: An indicator specified in columns 
58-59 ( Zero or Blank) for ADD, Z-ADD, SUB, 
Z-SUB, MULT, DIV, MVR, MOVE, and MOVEL is 
initialized on. 
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A resulting indicator used to test for 
a zero balance can be reset by one other 
condition. The output specification Blank 
After causes a numeric field to be set to 
zeros after execution of the output opera- 
tion specified. If this field is also a 
Result Field being tested for zero, the re- 
sulting field indicator specified is turn- 
ed on when the field is set to zeros by the 
Blank After specification. If the field is 
also a result field being tested for plus 
or minus, the resulting field indicators 
specified are not turned off when the field 
is set to zeros by the Blank After speci- 
fication. 

Table 2 illustrates the various condi- 
tions that cause resulting indicators to 
be turned on. 

On the first line in Figure 74, DISCNT 
is subtracted from GROSS and the result is 
stored in NETAMT. If the answer is a minus 
number, Indicator 10 is set on. If the 
answer is zero, Indicator 15 is set on. 

On the second line in Figure 74, the 
literal JANUARY is compared against the con- 
tents of DATE. If the result is equal, In- 
dicator 24 is turned on. 



COMMENTS (60-74) 



Positions 60 through 74 of the form are not 
required by the program. Data placed in 
these positions will be printed as a sepa- 
rate field during the compilation of the 



object program. An asterisk in column 7 is 
not required if this type of comment is in 
a line containing specifications. 



USING THE CALCULATION SPECIFICATIONS SHEET 



Figure 75 illustrates entries on the Cal- 
culation Specifications sheet that are used 
in part of a payroll application. The en- 
tries on the sheet are discussed by line 
number. 

NOTE: The blank spaces signify that addi- 
tional calculations have been specified, but 
in this example they have been omitted. 



Line 
Number 

01 



02 



03- 
05 



Explanation 

The program branches to GRSPAY 
from some other detail calcula- 
tion (not shown in this example) . 

The number of hours the employee 
worked is compared with the lit- 
eral 40. If the employee worked 
more than 40 hours, Indicator 20 
is turned on. If the employee 
worked less than 40 hours, Indi- 
cator 22 is turned on. 

If Indicator 20 is on, three cal- 
culations are performed. The 
literal 40 is subtracted from the 



Table 2. How Resulting Indicators are Turned On 
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Figure 74. Result Field Indicators 
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Line 
Number 



06 



07 



08 



Explanation 

number of hours worked, and the 
overtime hours are placed in the 
field OVERHR, which is a three- 
position field with one decimal 
position. RATE is multiplied by 
OVERHR and the result is placed 
in the field SAVE, which is a 
six-position field with two dec- 
imal positions. SAVE is multi- 
plied by the literal 1.5 (which 
is the overtime premium rate) . 
The result is placed back in SAVE, 
and it is half-adjusted. 

RATE is multiplied by 40, and the 
result is stored in GROSS. This 
operation is performed whether or 
not the employee worked any over- 
time. It is not performed if the 
employee has worked less than 40 
hours. 

GROSS is added to SAVE if Indi- 
cator 22 is off. 

The program branches to the label 
FICA if Indicator 22 is off. 



Line 
Number 



12 



13 



14 



15 



16 



Explanation 

the field DFICA, which is a six- 
position field with two decimal 
positions. The result is half- 
adjusted. 

DFICA is added to YDFICA and the 
result is placed in the field 
HOLD. 

The contents of HOLD are compared 
with the literal 144.00, and if 
HOLD is less than, or equal to, 
144.00, Indicator 21 is turned on. 

If Indicator 21 is on, the pro- 
gram branches to the label ADFICA. 

YDFICA is subtracted from the 
literal 144.00 and, the result is 
placed in DFICA. 

The operation TAG provides the 
label ADFICA to which the program 
can branch (either from the speci- 
fication on line 14 or sequen- 
tially from the specification on 
line 15) . 



09 Additional calculations. 

10 The operation code TAG provides 
the label FICA. The RPG program 
branches to this label. 

11 GROSS is multiplied by the literal 
. 03 and the result is placed in 



17 DFICA is added to YDFICA and the 
result is stored in YDFICA. 

18 Additional calculations. 

19 The operation code TAG provides 
the label WHTAX to which the RPG 
program can branch. 
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OUTPUT-FORMAT SPECIFICATIONS SHEET 



This form specifies the kind of output files 
to be produced and the location of the spe- 
cific data fields in the output reports and 
records. 



GENERAL INFORMATION 

The specifications for this form can be di- 
vided into two categories as illustrated in 
Figure 76: file identification and control 
(columns 7-31) , and field description (col- 
umns 23-74) . 

File Identification and Control. These 
specifications identify the output records 
that make up the files. They direct cards 
to the appropriate stackers and provide the 
correct spacing on printed reports . They 
determine under what conditions the records 
are to be produced. 

Field Description . These specifications 
indicate where and when the individual 
fields are to be placed in the output 
record. All field description entries are 
written on the lines following their cor- 
responding file identification specifica- 
tion. Each field is described on a 
separate line. 



The reader should note that the speci- 
cation Output Indicators is used for both, 
file identification and field description. 
The facility of controlling the printing 
and punching of each specific field of the 
record provides a great amount of program 
flexibility in RPG. 



Specifying Output Units 

When writing the Output-Format specifica- 
tions, it is not necessary to indicate the 
specific output units used in the program. 
The I/O unit used for each file is specified 
in the File Description sheet. Each file 
name therefore is related to a specific 
output unit. By merely writing the file 
name on the output form, the output unit 
has in effect been specified. 



FILE IDENTIFICATION AND CONTROL 



FILENAME (7-14) 

A file name is assigned to each output file. 
The file name must be left- justified, and 
it must begin with an alphabetic character. 
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Figure 76. Output-Format Specifications Sheet 
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The file name may be alphameric, but it 
must not contain special characters or 
blanks. 

When writing the output specifications, 
the file name need only be entered once. 
Enter it on the first line to define the 
file as shown in Figure 77 . 



TYPE H/D/T (15) 



The entry in this column identifies the 
type of record being specified. The follow- 
ing three entries are used for this speci- 
fication: 

H — Heading Record 
D — Detail Record 
T — Total Record 



they may also contain information from in- 
put records, including the record present 
at the time the output record is produced. 

Detail Records. These records have a direct 
relationship to the input record. Most data 
in a detail record comes from the input rec- 
ord or from calculations performed at detail 
time. 

Total Records . Operations upon fields from 
the input record are preceded by the test 
for control -field changes, the performance 
of total-time calculations, and the forma- 
tion of total records. Thus, data from an 
input record that causes a control-field 
change cannot contribute data to total rec- 
ords that result from that control change. 
But heading and detail records can contain 
data from the input record. 



NOTE: All heading records for a file must 
be entered first, followed by all detail 
records, and then by all total records for 
the same file (Figure 77) . 

Heading Records . These records usually 
contain constant information. However, 



STACKER SELECT (16) 

If punched output occurs in the object pro- 
gram, a stacker number is entered in this 
column. The cards fall in the stacker that 
is indicated by this column. The stacker 
pockets and their acceptable codes are 
listed in Figure 78. 



SPACE (17-18) 
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This specification (and the next specifica- 
tion Skip, columns 19-22) is used to pro- 
vide the proper spacing of printed reports 



NOTE: If the record is to be printed, at 
least one entry is required in columns 17- 
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Figure 77. Specifying Heading, Detail, 
and Total Lines 



Figure 78. Summary of Stacker Select Speci- 
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Space Before (Column 17) 

Enter in this column the number of lines to 
be spaced before the line is printed,. Spe- 
cify zero, one, two, or three spaces before 
printing by placing the entry 0, 1, 2, or 3 
in column 17. If this column is left blank, 
no spacing before printing will be provided, 



Space After (Column 18) 



Specify zero, one, two, or three spaces 
after printing by placing the entry 0, 1, 
2, or 3 in column 18. A blank in this col- 
umn will provide single spacing after print- 
ing a line. 



SKIP (19-22) 



This specification provides for the proper 
spacing of reports. It is directly related 
to the function of the printer carriage- 
control tape. 



Skip Before (Columns 19-20) 



The entries 01-12 cause the printer carriage 
to skip to channels 1 through 12 of the 
carriage tape before the line is printed. 
In Figure 77, before the heading line is 
written, the form skips to channel 1. 



Skip After (Columns 21-22) 



overflow punch must coincide with the next- 
to-last line to be printed on the form. 

Using the Line Counter specifications 
causes the overflow indicator to be turned 
on when the line counter reaches the speci- 
fied line number. 

The overflow indicator remains on for 
one complete processing cycle and is off 
after the heading and detail lines of the 
next record are printed. The overflow in- 
dicator can be used to control calculation 
specifications because it is on during 
calculations . 

A test for the overflow status is made 
by the object module immediately before 
each line of the report is printed, (but 
after any Space Before specifications are 
executed) . Two conditions can occur at 
this time: 

1. If the overflow indicator is on before 
a detail line is printed, the detail 
line, and any other detail lines whose 
output indicators are on, are printed. 

Any Space After specifications are 
executed, the next record is read, and 
a test is made to determine if a con- 
trol break has occurred. If one has 
occurred, all total lines (caused by 
the control break) are printed, and 
then any overflow printing specified 
is performed. 

2. If the overflow indicator is on before 
a total line is printed, all total 
lines, whose output indicators are on, 
are printed. This is followed by any 
specified overflow printing. 



The entries 01-12 cause the printer carriage 
to skip to channels 1 through 12 of the 
carriage tape after the line is printed. 

NOTE: The order in which spacing and skip- 
ping is performed is as follows: 

Skip Before 
Space Before 
Skip After 
Space After 



Overflow Indicator 

Carriage overflow or the line number asso- 
ciated with channel 12 in the Line Counter 
Specifications sheet cause the setting of 
the indicator as specified by the user in 
the File Description Specifications (columns 
33-34) . 

Channel 12 is sensed as the corresponding 
line is printed. The overflow indicator is 
turned on after the next line is printed. 
Thus, one extra line is always printed after 
the overflow is detected and before the 
overflow functions can occur. In planning 
a printer operation, the carriage tape 



Automatic Skipping 

If an overflow indicator is not specified as 
one of the first three indicators (columns 
23-31 of output specifications) for any line 
of a print file, then the RPG compiler pro- 
vides the object module with automatic 
skipping from channel 12 to channel 01 on 
that file. 



Printing Lines Conditioned by Overflow 

If an output line is conditioned by either 
an overflow or a control level indicator, 
the line will print whenever either of these 
indicators is on. If the overflow indicator 
and control level indicator occur at the 
same time during processing, the line prints 
twice. 

This situation may be avoided by using 
the coding shown in Figure 79. The detail 
line 010 in Figure 79 specifies that if a 
level-1 control break does not occur on this 
cycle but has occurred on the previous cycle, 
indicator 2_5 is turned off. The total line 
020 specifies that if a level-1 control 
break has occurred, indicator 25 is turned 
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Figure 79. Specifying Output Indicators for Overflow 



on. Indicator 2_5 remains on for an extra 
total cycle because: 

1. If overflow has occurred at detail time, 
it will be sensed at total time. 

2. The overflow routine is executed after 
the control level-1 indicator (Ll) has 
been turned off. 

The output line is coded as shown in the 
lower half of Figure 79. By making the con- 
dition mutually exclusive, the line is not 
printed twice. 

The order in which the object module 
prints lines conditioned by overflow fol- 
lows : 

1. When overflow occurs during the print- 
ing of a heading or detail line, the 
object module does not print lines 
conditioned by overflow. The program 
does, however, take note that the 
overflow condition has occurred. 



2. Total lines not conditioned by over- 
flow are printed. 

3. The object module then tests to see 
if overflow has occurred. 

4. Total lines conditioned by overflow 
are then printed. 

5. Heading and detail lines conditioned 
by overflow are then printed. 

NOTE: If an overflow condition has been 
specified, automatic skipping is not per- 
formed . 



Multiple Printers 

With this program it is possible to use a 
maximum of eight output printer files for 
each RPG object module. When producing 
records for more than one printer, the user 
must specify the printer on which the over- 
flow condition occurs by assigning a unique 
overflow indicator for each printer. 
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In columns 33-34 of the File Description 
sheet,, one of eight available overflow 
indicators is entered. The following eight 
indicator codes are used: 

OA, OB, OC, OD, OE, OF, OG, and OV. 
OUTPUT INDICATORS (23-31) 



This specification may be used for either 
file identification or field description . 
Entries in this column may specify a maxi- 
mum of three indicators. These indicators 
control: 



1. When the line is to become output, or 

2. When a particular field is to be 
written . 
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The following information applies only 
to its use in the file identification line. 

If more than one indicator is specified 
on one line, all indicators are considered 
in an AND relationship. That is, all indi- 
cator conditions specified must be satis- 
fied before the output condition can be 
executed . 

If the object module requires that more 
than three indicators be in an AND relation- 
ship, the letters AND are entered in col- 
umns 14-16 of the following line, and the 
additional indicators are specified on that 
line. 

If the output condition is executed in 
an OR relationship (one or the other of two 
sets of conditions) the letters OR are en- 
tered in columns 14-15 of the following 
specification line, and the OR indicators 
are specified on that line. 

Additional specification lines can 
specify as many output indicators in either 
an AND or OR relationship as required by 
the object module. Each additional line 
must begin with AND or OR in column 14. 

When an OR line is specified on a print 
file, the printer control functions (col- 
umns 17-22) may all be left blank, in which 
case those of the preceding line will be 
implemented. They may, however, differ 
from the preceding line if required. This 
implementation does not occur for Stacker 
Select entry since a blank is a valid 
stacker select code. 

If a line is to be conditioned as an 
overflow line, the overflow indicator must 
not appear in a specification line having 
the letters AND in columns 14 through 16 . 



Examples of Output Indicators 

The entries for this specification can be 
arranged into the categories listed below. 

1. A resulting indicator code specifies 
the particular record-type on which 
the output operation is to be perform- 
ed. The operation cannot be performed 
on other record types. 

2. A field indicator code controls the 
output operation by the status of an 
input field. 

3. A resulting indicator code controls 
the output operation by conditions 
that have occurred during calculations, 

4. A control level indicator (LI through 
L9 and LR) causes the output operation 
to be performed only at the control 
level specified. 

5 . The MR indicator code causes the out- 
put operation to be performed only if 



there is a matching record in a second 
input file. 

6. The halt indicators HO through H9 are 
normally used to suppress an output 
operation when an error has been detec- 
ted in the input data or during a cal- 
culation. 

7. Overflow indicators cause the output 
operation to take place only if a page 
overflow has occurred. (Overflow line.) 

8. The IP (first page) indicator enables 
overflow headings to be printed on the 
first page of a report. (This indica- 
tor is turned on at the beginning of 
processing before any input records 
have been read.) 

In addition, this specification may con- 
tain a combination of some of the eight 
categories listed. Also, the operation may 
be controlled by the fact that an indicator 
must not be on. This is accomplished by 
placing an N in columns 23, 26, and 29. 

Figure 80 shows six examples of output 
indicators when they are used as part of 
the file identification specifications. 
The numbers to the right refer to the fol- 
lowing discussion: 
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Figure 80 . Specifying Output Indicators 
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1. The control carriage is skipped to 
channel 02 before printing, and the 
heading line is printed only when an 
overflow condition occurs or when the 
IP (first page) indicator is on. 

2. The detail line is printed only if 
Indicator 14 is on, and Indicators 26, 
28, and 30 are off. Indicators 26, 28, 
and 30 could be field indicators from 
the input specifications, or they could 
be resulting indicators from the cal- 
culation specifications. 

3. The detail line is printed if Indica- 
tor 40 or 46 is on. 

4. The total line is printed and the con- 
trol carriage is skipped to channel 2 
before printing only if the Level-2 
indicator is on, the MR indicator 

is off, and H2 is off. The specifica- 
tion NH2 prevents the object module 
from printing a line if an error con- 
dition has occurred. 

The program does not stop until 
after all processing for the record 
has been completed. This feature en- 
ables the programmer to prevent the 
printing of erroneous data. 

5 . The summary record is printed at the 
Level-2 control time, but the MR 
(matching record) indicator must also 

be on. 

6. A summary card punched at the Level-2 
control time is selected into stacker 
2 of an IBM 1442 Card-Read Punch. 

This concludes the description of the 
file identification specifications. The 
remaining descriptions of the output form 
are concerned with the field-description 
section of the output specifications. 



FIELD DESCRIPTION 



These entries include specifications about: 

1 . The control of the individual fields of 
a record, and 

2 . The output format of individual fields 
of a record. The fields of the record 
are written on the lines below their 
corresponding file entries. Each 
field is described on a separate line, 
and no entries are permitted in col- 
umns 7-22 of a field-description line. 



description. The maximum number of indica- 
tors that can be considered in an AND rela- 
tionship is three; all must be specified on 
one field-description line. 

Figure 81 shows four sets of indicators 
used as output indicators for field- 
description lines. The numbers to the 
right of the figure correspond to the fol- 
lowing list: 

1. Four fields are printed from a detail 
record identified by Indicator 44: 
invoice, amount, customer, and sales- 
man. The entry LI causes the field, 
SALESM, to be printed only for the 
first detail record of each control 
group. (Remember that a control level 
indicator remains on during the follow- 
ing detail calculation and print cycle.) 
The salesman field is "group indicated". 

2. The second example illustrates how to 
prevent the printing of just one field 
of a record. The field AMOUNT is 
printed only if Indicator 16 is off. 
This indicator is used to determine if 
the calculated field AMOUNT is zero. 

3. This example selectively prints the 
field headings for an invoice form. 
This specification prints all the head- 
ing information on the first form, but 
if the information for one customer 
order continues on two or more forms, 
only the customer and invoice fields 

on succeeding forms are printed. 

Printing of the entire line is con- 
trolled by Indicators 04 or OF. In the 
field description specifications, the 
OF indicator is also used to prevent 
printing of fields order number, date, 
and salesman when an overflow condition 
occurs . 

4. The last example illustrates how a 
field can be controlled for printing by 
an AND relationship and an OR relation- 
ship . 

The field DIVSON is controlled by 
three AND indicators: 16, NH2, and 
NL3. 

The field AMOUNT is controlled by 
two OR conditions. In the field de- 
scription line, the OR relationship is 
used by writing the field name twice 
and specifying each appropriate OR 
indicator. 

The letters OR cannot be specified in 
columns 14-15 of a field description. 



OUTPUT INDICATORS (23-31) 

The same types of indicators used for file 
identification can be used for field 



FIELD NAME (COLUMNS 32-37) 

This specification identifies each field of 
the record to be written. The fields may 
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be listed on the form in any sequence. The 
order in which they appear in the output 
record is determined by the entry in col- 
umns 40-43. 

Enter in columns 32-37 the name of the 
field that is defined on the line. The 
field name must have been previously de- 
fined on either the input or calculation 
sheet. (For an exception to this, see 
Page Numbering .) If a constant is to be 
written, it is specified in Constant or 
Edit Word (columns 45-70) , and Field Name 
is left blank. 

Examples of field names are given in 
Figure 81. 



ZERO SUPPRESS (38) 

An entry of Z in this specification causes 
zero-suppression of the field in the out- 
put record, which must be a numeric field. 
Zero suppression means that zeros to the 
left of the first (high-order) significant 
digit in the field are replaced by blanks 
in the output record. 

This specification performs an addition- 
al function: zone bits in the unit posi- 
tion of a field are removed during zero 
suppression. This provides a means of 
"zone elimination" for amount fields. 
Normally, this specification is used for 
printing numeric fields, but not for 
punching them, because it is usually 
necessary to punch the sign codes and 
leading zeros. 

If an edit control word is specified for 
the field, this specification must be blank. 



BLANK AFTER (39) 

An entry of B in this specification causes 
the output field to be reset to blanks or 
zeros after the field is placed in the 
output record. Alphameric fields are set 
to blanks; numeric fields are set to zeros. 

This specification has an additional 
feature: if the output field being reset 
by the Blank After specification is also 
being tested for zero or blank on the input 
specifications or being tested for zero on 
the calculation specifications, the corre- 
sponding indicator is turned on after the 
output field is reset. However, associated 
plus or minus indicators are not turned off, 

If a given field is specified for out- 
put at more than one position in the same 
record, the blank-after entry is made only 
on the last specification where the field 
is used. 



NOTE; A Blank After specification also 
affects any constant in storage. Since 
each constant is stored only once for every 
RPG program — no matter how often it is 
used — a constant affected by a Blank After 
specification is not available for use in 
subsequent operations . 



END POSITION IN OUTPUT RECORD (40-43) 



This specification indicates the location 
of the field in the output record. In col- 
umns 40-43, enter only the position in the 
output record where the rightmost (low- 
order) character of the field is to be lo- 
cated. 

Assume that a ten-position amount field 
is to be printed in print positions 21 
through 30. The entry in columns 42 and 43 
would be 30 . Columns 40 through 41 are 
left blank, because the leading zeros may 
be omitted. 

If an amount field is being edited, the 
program considers the entire edit word as 
the "field" to be placed in the output 
record. For example, in the previous exam- 
ple assume the letters CR are to be printed 
at the end of minus amount fields . The R 
would be printed in position 30, the C in 
position 29, and the 10-position amount 
field would then be printed in positions 
19 through 28 . Thus the amount field is 
always printed in positions 19-28, and the 
credit symbol (if applicable) is printed 
in positions 29 and 30. 

Figure 82 illustrates various field 
description specifications. It shows the 
specifications for printing a detail line. 
The three quantity fields ORDQTY, SCRAPQ, 
and RECPTQ are zero-suppressed. The quan- 
tity fields SCRAPQ and RECPTQ are also 
reset to zeros by the Blank After specifi- 
cation. 

Figure 83 illustrates an example of 
field selection specification. These 
entries punch a summary card at control 
level-1. In this example, a new balance 
(NEWBAL) and an old balance (OLDBAL) are 
used in the weekly reports; at the end of 
the month only the new balance is to be 
summarized for the following month's report. 

Both fields are specified for the same 
punching positions in the output record. 
The actual field that is punched, however, 
is controlled by the setting of Indicator 
26. The number of fields that can be 
specified for field selection is not lim- 
ited. 
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PACKED FIELD (44) 

Packed format in the System/ 360 means that 
two decimal digits can be represented in 
one core storage byte. This is the data 
format used for numeric fields in RPG. 
Because input data is usually represented 
in the unpacked format — one digit in one 
core storage byte — the RPG program auto- 
matically converts numeric input data from 
the unpacked format to .the packed decimal 
format . 

Because the packed decimal format per- 
mits greater utilization of storage capac- 
ities (Card-Tape-Disk) the RPG program 
permits numeric data to be put out in the 
packed decimal format. 

Enter a P in this column if the numeric 
output field is to be in the packed decimal 
format. Otherwise, leave this column blank, 
The letter P causes the RPG program to by- 
pass the normal conversion of packed deci- 
mal format to unpacked format. 

The number of bytes occupied in the out- 
put record by a numeric field in packed 
format can be determined in the following 
manner: 



1 . Divide the length of the field by 2 

2. Eliminate the rightmost decimal frac- 
tions 

3. Increase the result by one. 

If an edit control word or sterling en- 
try are specified for the field, this col- 
umn must be blank. 



PAGE NUMBERING 

Page numbering, another automatic feature 
of RPG, is specified in the field descrip- 
tion portion of the output specifications. 
The last entry in Field Name in Figure 84 
causes each page of the output form to be 
consecutively numbered in print positions 
65 to 68 (the number is always defined as 
four positions long unless defined by a 
header card on the input specifications) . 
The page number is increased by one before 
it is printed. 

Page numbering normally begins with num- 
ber 1, but the programmer may start page 
numbering with any number by preparing a 
header card containing the starting page 
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Figure 85. Page Numbering 



number, less 1. The header card must be 
defined on the input specifications 
with a field named PAGE. The field must be 
defined as numeric (0 in column 52) and can 
be 1 to 15 positions long. In Figure 85 
the page number is initialized from sequence 
AA on the Input Specifications sheet (line 
010) . If page numbering were to begin with 
the number 500, 499 would be punched in 
columns 1-4 of the input record that con- 
tains the character P in column 80. PAGE 
is defined on the Output-Format Specifica- 
tions sheet as a separate field that prints 
in position 100 . 



It is possible to reset the page number 
to zero and start a new series of page num- 
bers during the processing of the program. 
For example, rather than number each page 
of a report, it may be required to start 
page numbering with 01 for each major con- 
trol break. In this case the major control 
level indicator must be placed in Output 
Indicators on the same line as the Field 
Name specification PAGE. 

Any output indicators specified in a 
PAGE line are checked before printing. If 
all conditions are met, the page counter 
is reset to before being incremented by 1 . 
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Page Numbering for Multiple Printers 



Edit Words 



The individual printer files can initialize 
page numbering. Eight special PAGE entries 
(PAGE, PAGE1, PAGE2, PAGE3, PAGE4, PAGE5, 
PAGE6, and PAGE7) can be initialized to any 
count in the same manner as described for 
PAGE. 



CONSTANT OR EDIT WORD (45-70) 

This specification provides constants in 
the output records or permits editing of 
numeric fields. Constants and edit words 
must be left-justified. 



Constants 



This entry provides a convenient method of 
placing into the object module alphameric 
data (literals) that does not change from 
one processing of the program to the next. 
A literal is the actual data to be used in 
the output record rather than a name repre- 
senting the location of data. 

A literal of up to twenty-four alpha- 
meric characters may be placed in columns 
45-70. The literal must begin in column 
45, and it must be enclosed by a set of 
apostrophe symbols even if it contains only 
numeric characters. The literal beginning 
in column 45 will be placed on the output 
record as defined in End Position in Output 
Record, (columns 40-43) . 



An edit word provides for the punctuation 
of amount fields, including the printing 
of dollar signs, commas, periods, and sign 
status. Column 38 ( Zero Suppression ) and 
column 44 ( Packed ) must be left blank. An 
edit operation is shown in Figure 86 . 

When an amount field is to be edited, 
its edit word is placed in columns 45-70 
of the line which specifies the field. An 
edit word consists of two parts (the body 
and the status) as shown in Figure 87 . 

The body of the edit word is the por- 
tion beginning with the leftmost character, 
and continuing to the right of the character 
that governs the transfer of the rightmost 
position of the data field. 

The status of the edit word is the por- 
tion continuing to the right from the body 
including all characters preceding the 
closing apostrophe symbol. The CR (credit) 
or - (minus) , if present,- may appear any- 
where within the status . 

A character in the edit word that is re- 
placed by a numeric character from the data 
field is referred to as a digit position. 
A blank in the edit word is a digit position 
as are the characters _0, j^, and £_ under 
certain conditions. 



Rules for Forming an Edit Word 

1. An edit word must be enclosed in a set 
of apostrophe symbols. 



Rules for Forming Alphameric Literals in 
an Output Record 



Any character in the character set may 
be used in an alphameric literal. 
Blanks are treated as valid characters, 
Alphameric literals must be enclosed 
in a set of apostrophe symbols . An 
apostrophe symbol may be contained 
within a literal be entering two con- 
secutive apostrophe symbols within the 
literal. For example, the literal 
o'clock would be entered as ' o' ' clock ' 
in columns 45-54 of the Output-Format 
Specifications sheet. 
Field Name (columns 32-37) must be 
left blank when an alphameric literal 
is defined on the line. 
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A blank in the edit word is replaced 
with the digit from the corresponding 
position of the data field specified 
in Field Name . 

An ampersand causes a space in the 
edited field. There is no way to ob- 
tain an ampersand in an edited field. 
A zero is used to stop zero-suppres- 
sion. It is put in the rightmost po- 
sition where zero suppression is to 
take place. It is replaced with the 
character from the corresponding po- 
sition of the data field, unless that 
character is a zero. At least one 
leading zero is suppressed. 
An asterisk in the body of the control 
word is used for asterisk protection 
and zero suppression. It is put in 
the rightmost position where zero sup- 
pression is to take place. It is re- 
placed with the character from the 
corresponding position of the data 
field unless that character is a zero 
and there is no significant digit to 
its left. Each zero that is sup- 
pressed is replaced by an asterisk. 
A dollar sign in the body of the edit 
word written immediately to the left 
of the zero-suppression code (0) causes 
the insertion of a dollar sign in the 
position to the left of the first 
significant digit. This is called the 
floating dollar sig n. If it is nec- 
essary for the dollar sign to appear 
when all digits in the data are 
significant, the edit word must start 
with an ampersand to allow a space in 
which it can print. 

A dollar sign that is entered im- 
mediately after the initial apostrophe 
symbol will be fixed. That is, it will 
be printed in the same location each 
time. This is called the fixed dollar 

sj -g n - 



10 



11 



12 



NOTE: In the edit word '$0bb' the 
dollar sign is considered to be fixed 
and not floating. 

The decimal and commas are printed in 
the edited output field in the same 
relative positions in which they were 
written in the edit word unless they 
are to the left of significant digits. 
In that case, they are blanked out or 
replaced by an asterisk. Any charac- 
ters other than the fixed dollar sign 
which precede the first digit position 
will always be suppressed. 
All other characters used in the body 
of the edit word are printed if they 
are to the right of significant digits 
in the data field. If they are to the 
left of high-order significant digits 
in the data word, they are blanked out, 
or if asterisk protection is used, they 
are replaced by an asterisk. 
The letters CR or the minus symbol in 
the status portion of the edit word 
are undisturbed if the sign in the 
data field is minus. If the sign is 
plus, they are blanked out. 
Asterisks to the right of the CR or 
minus symbol are undisturbed. They are 
normally used to indicate a specific 
class of total. An error results 
unless a zero (for zero-suppression) 
or an asterisk (for asterisk protec- 
tion) are present in the body of the 
edit word. 

If there are more digit positions in 
the edit word than there are digits 
in the field to be edited, leading 
zeros will be added to the field before 
editing. 

An edit word can contain a maximum of 
15 digit positions. An exception oc- 
curs for a sterling field where the 
maximum is 16 digit positions. 



Figure 88 illustrates the use of con- 
stants and edit words . The numbers to the 
left correspond to the following list: 




Figure 87. Two Parts of an Edit Word: 
Body and Status 



1. The constant 26.75 is in the output 
record ending in position 96. The 
Field Name specification must be blank 

2. The constant DEPARTMENT TOTAL is con- 
tained in the output record ending in 
position 96. The Field Name specifi- 
cation must be blank. 
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Figure 88 . Using Constants and Edit Words 



3. This example illustrates zero-suppres- 
sion to the left of significant digits. 
The letters CR are written because the 
amount field might be minus. 

4. In this example, the floating dollar- 
sign protection enters the $ to the 
left of the first significant digit. 

5. Asterisk protection enters as many 
asterisks to the left of the first 
significant digit as required to fill 
out the number of positions specified 
in the edit word. 

When using a printer with the UCS fea- 
ture, data checks may occur during RPG com- 
pilation of a program that uses edit words. 
To suppress these unit checks, one of the 
following options must be used: 

1. Suppress data checks at compile time 

by omitting the SYSPRINT DD card para- 
meter DCB=(,OPTCD=U) . (Refer to IBM 
System/360 Operating System, Supervi- 
sor and Data Management Macro-Instruc- 
tions. ) Cataloged procedures do not 



include this parameter and can there- 
fore be used to suppress data checks 
on a printer with UCS. 
Use the utility program, IEHUCSLD, 
(IBM System/36 Operating System: 
Utilities) to load X'20 1 and X'21 1 
into the UCS buffer. 



STERLING SIGN POSITION (71-74) 

Enter in these columns the position in the 
record that will contain the sign of the 
sterling field. Leading zeros may be omit- 
ted. Enter an S in column 74 if the sign is 
in the normal position. For Print files the 
normal position must be used. If the Ster- 
ling specification is not required, leave 
this column blank. Additional information 
on Sterling is in Appendix D. Sterling 
Routines for the Report Program Generator. 
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LINE COUNTER SPECIFICATIONS SHEET 



The Line Counter Specifications sheet pro- 
vides the important facility to store re- 
ports, which^ will ultimately be printed, 
on any intermediate device such as tape or 
disk. It also provides the convenience of 
an "internal" carriage control tape when 
using an actual printing device. 

This sheet is necessary because any out- 
put lines for the printed report that de- 
pend upon the sensing of a channel-12 punch 
in the carriage control tape will not be 
produced for tape or a direct access stor- 
age device. Thus, the Line Counter Specif- 
ications sheet is used to relate the line 
of the printed page of the report to its 
corresponding punch in the carriage con- 
trol tape. 

A standard IBM System/360 write/control 
or independent carriage control character 
is added as the first byte of each record 
that is put out on the intermediate device. 
For example, a 132 character record becomes 
133 characters long. All space before and 
skip before controls are put out as inde- 
pendent carriage control characters in a a 
separate record that does not print. Space 
after and skip after controls are put out 
as modifier bits in conjunction with the 
write command for the line. A line that 
has space or skip before control, produces 
two records on the intermediate device, 
while a line with skip or space after con- 
trol produces only one record. An auxil- 
iary program must be used to retrieve these 
records for printing. This program can be 
written in RPG or another programming 
language . 

NOTE: When automatic skipping is desired 
(overflow indicators are not specified) and 
the report is to be stored on some inter- 
mediate device, the Line Counter Specifica- 
tions sheet must be used. 



HOW TO USE LINE COUNTER SPECIFICATIONS 

In Figure 89 , three lines of the report are 
conditioned by the carriage control tape. 
Channel 1 is used to control printing of 
Monthly Sales Report. 

Tape channel 6 is used to control amount, 
and channel 12 is used to condition total 
sales. On the Line Counter Specifications 
sheet (Figure 90) the name of the file is 
entered in columns 7-14. The entries, in 
this example, in columns 15-29 relate dir- 
ectly to the printer spacing chart. The 
numbers in the following list correspond 
to this discussion: 

1. The first line controlled by the car- 
riage control tape is line 6. In col- 
umns 15-17 of the Line Counter sheet, 
006 is entered. The corresponding 
channel punch is channel 1. In col- 
umns 18-19, 01 is entered. 

2. Line 13 of the report (amount) is con- 
trolled by a punch in channel 6. Col- 
umns 20-22 contain 013, and Columns 
23-24 contain 06. 

3. Line 17 (total sales) is controlled by 
the punch in channel 12 of the carriage 
control tape. Columns 25-27 of the 
Line Counter Specification sheet con- 
tain 017, and columns 28-29 contain 12. 

Entries on the Output-Format Specifica- 
tions are not changed. On the File Descrip- 
tion sheet, the line that is used to define 
the output file must contain a V in File 
Format (column 19) and an _L in the Extension 
Code Field (column 39) . The L indicates 
that a line counter specification is 
required for the output file. 

If the Line Counter Specifications sheet 
is used, an entry must be made for channel 
1 and channel 12. 
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Figure 89 . Using the Carriage Control Tape 
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PILE DESCRIPTION SPECIFICATIONS SHEET 



This sheet is used to provide information 
to RPG about: 

1. The input files, defined on the Input 
Specifications sheet, from which the 
object module will obtain data 
records . 

2. The input files used by the object pro- 
gram, such as record- address files, 
table files, and chaining files. 

3. The output files, defined on the Out- 
put-Format Specifications sheet on 
which the object module will write 
data records. Each file used by the 
object program must be defined. 

Each file used by the object program must 
be defined. Each line of the File Descrip- 
tion sheet is used to define one file. 

This form also identifies each file used 
in the program with the input or output unit 
with which it is associated. Each line of 
the form is used to specify one file. 



7-14. The file name must be left-justified 
(that is, it must start in column 7) and it 
must begin with an alphabetic character. 
The remaining characters of the name may 
be alphameric, but must not contain special 
characters or embedded blanks. The file 
name may be eight characters or fewer. (Em- 
bedded blanks are blank positions falling 
between other characters of the name.) The 
file name entered in these columns must also 
have been entered on the Input Specifica- 
tions sheet (for input data files) , on the 
Output- Format Specifications sheet (for out- 
put data files) or on the File Extension 
Sheet (for Table, RAF, or chaining files) . 



FILE TYPE (15) 

An entry in this column specifies the type 
of file defined on the line of the sheet. 
The following four entries are allowed in 
this column: 



Maximum Number of Files Available 

The maximum number of files that can be 
used in the program is 10 . The list below 
defines the maximum number of files for the 
various types of files that can be used. 
Any combination of these, up to 10, is 
permitted. 



Type of File 

Input 

Primary 

Secondary 

RAF 

Chained 

Table 

Output 

Update 

Primary 

Secondary 

Chained 

Combined 
Primary 
Secondary 



Maximum Number 



1* 

8 

1 

9 

8 

9** 

1 
8 
9 

1 
1 



*Each program must have one (and only one) 
primary file. 
**Up to a maximum of eight printers can be 
used in a program. 



I Input File 

Identifies the file as an input file (it may 
be a record-address file, table file, or a 
file containing input data records) . 



Output File 

Identifies the file as an output file (it 
may be an updated table file to be written 
out) . 



U Update File 

Identifies the file as an update file 
(Direct Access Storage Device only) . An 
update file is both an input and an output 
file. 

The file is an update file if the object 
program alters the data in one or more 
fields of each record contained in the file. 
The overall length of the record cannot be 
changed even in a variable length file. 

A chained file may be updated at detail 
time or at total time. All other DASD files 
can be updated at detail time only. 



FILENAME (7-14) 

Each file used in the program is identified 
by writing the name of the file in columns 



C Combined File 

Identifies the file as a combined file 
(card file only) . A combined file is a 
file containing cards read into the system 



File Description Specifications Sheet 91 



and cards used for punching. It must re- 
side on an IBM 1442 Card Read-Punch. 

Reading and then punching into the same 
file is accomplished in two different ways. 

1. Punching into the same card that is 
read. 

2. Punching into a blank trailer card in 
the same file. 

Figure 91 illustrates two examples of 
File Name and File Type specifications. 

1. Detail cards are read into the system 
in one file, summary cards are punched 
into a separate file (which, in this 
example, might be the punch feed of an 
IBM 2540 and might contain blank cards 
only) , and the printed report is in a 
third file. 

2. There are two input files in this exam- 
ple. The second file (INPUTSEC) also 
contains cards that will be used for 
punching output data; therefore it is 
specified with file-type C. 



FILE DESIGNATION (16) 

This specification is used to designate the 
type of input file being defined on this 
line of the File Description sheet. The 
five entries permitted in this column are 
listed here. Detailed explanations of 
chained files, table files, record- address 
files, primary files, and secondary files 
may be found in the sections Using Tables 
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Figure 91. Specifying File Name and File 
Type 



in the Object Program and Processing Multi - 
ple Input Files at the back of this publi- 
cation . 

If the file is an output file, leave 
this column blank . An entry must be made 
if the file is an Input, Update or Combined 
file. Enter in column 16 the following 
codes: 

Entry Explanation 

P The f iJ,e defined is a primary 

file. Only one primary file may 
be defined. 

S The file defined is a secondary 
file. 

R The file defined is a record-ad- 
dress file which relates to a 
direct access storage file. Only 
one RAF may be defined. 

C The file defined is a chained file 

T The file defined is a table file. 



END OF FILE (17) 

Enter an E in column 17 if the input file 
is a sequential file and it is to be 
checked for an end-of-file condition. 

For one input file, the E entry will 
cause the LR (Last Record) indicator to 
turn on when the last record of the file 
has been processed. For multiple input 
files that utilize chaining or matching 
records, the end-of-job condition (LR) will 
occur when all the input files (defined on 
this sheet with an E in column 17) have 
reached the end-of-file. 

If this column is left blank for all in- 
put files, the end-of-job condition (LR) 
occurs when all input files have been 
processed. 

NOTE: An E should not be entered in Column 
17 if there are multiple input files to be 
processed in sequence (no chaining or match- 
ing records specified) r if the file is pro- 
cessed randomly, or if the file is either an 
output or table file. 



SEQUENCE (18) 

This entry is normally made if there is 
more than one input file and the matching- 
fields specification (columns 61-62 of the 
Input Specifications Sheet) is used. An 
entry in this column indicates whether the 
matching fields are in ascending or descend- 
ing sequence. 

Enter an A in column 18 if the match- 
ing fields are in ascending order, or a D 
if the matching fields are in descending 
order . 

NOTE: If this column is left blank when 
matching fields are used, ascending order 
is assumed. 
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Sequence -Checking of Input Files 

If there is only one input file or a chain- 
ing file in the program, this specification 
may be used to sequence-check fields of the 
file to ensure that the file is in se- 
quence. By entering the codes Ml, M2, or 
M3 in columns 61-62 of the Input Specifica- 
tions sheet, sequence-checking with respect 
to these fields occurs. In this specifica- 
tion (column 18) , either A or D must be 
entered to specify whether the file is as- 
cending or descending. 

The Halt Indicator, HO, is turned on 
when a record of an input file is found to 
be out of sequence. Unless the HO indica- 
tor is turned off by a SETOF operation in 
the calculation specifications, the program 
will terminate before the next input record 
is read. 



FILE FORMAT (19) 

This column is used to indicate the format 
of the input or the output records . Enter 
an F in this column if the records are 
fixed-length. Enter a V in this column if 
the records are variable in length. 

NOTE ; Enter a V in this column if the out- 
put file is used in conjunction with the 
Line Counter Specifications Sheet. 



BLOCK LENGTH (COLUMNS 20-23) 

This specification is used to indicate the 
block length of the input or output rec- 
ords. It is used in conjunction with the 
next specification, Record Length . 

The RPG program provides four techniques 
for handling records: 



1 . Fixed-length . All records have the 
same number of bytes of data. 

2. Variable-length . Each record can have 
a different number of bytes of data. 

3. Unblocked . Only one logical record in 
each physical record. 

4. Blocked . Two or more logical records 
in one physical record. Blocked rec- 
ords are not supported by the Direct 
Access Method (DAM) . 



Fixed-length, Unblocked (Figure 9 2) . Each 
logical record is the same length as the 
physical record. 



Fixed-length, Blocked (Figure 9 3 ) . Blocked 
records are usually considered to be two 
or more logical records within one physical 
record. 



Variable-length, Unblocked (Figure 94 ) . 
Each logical record is the same as a 
physical record, and the logical records 
can vary in length. Each record contains 
both a block-length field (BL) and a 
record-length field (RL) . These two fields 
are used by and created by the RPG program. 
The block-length and record-length fields 
are illustrated here only to show how the 
program utilizes and controls the records. 
Those fields are ignored by the user when 
he establishes his data records and when 
he specifies record-length and block- 
length specifications. 

Variable-length, Blocked (Figure 95 ) . One 
or more logical records (of variable- 
length) are contained within each physical 
record. 
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Data Record 
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RL = 90 

G = Gap Area Separator 
RL = Record Length 

Figure 92. Fixed-Length, Unblocked Record Format 
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Specifications for Block Length 



Blocked 



Unblocked 



If the records are unblocked, the entry for 
this specification is the length of a rec- 
ord. If variable-length records are used, 
it is the length of the longest record. 
This means that the entry for this specifi- 
cation for unblocked records is always the 
same as the entry for the Record Length 
specification. 



If the records are blocked, the entry for 
the specification is the length of the 
largest block. For example, if three fixed- 
length 90-character records are contained 
in each block, the specification for Block 
Length is 270 . 

If there are variable-length records 
used in the file — for example Figure 95 — 
the Block Length specification depends upon 
not only the number of variable-length rec- 
ords in each block, but also upon the max- 
imum size of each variable-length record. 



'Physical Record 1' 
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Figure 93. Fixed-Length, Blocked Record Format 
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Figure 94. Variable-Length, Unblocked Record Format 
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Figure 95. Variable-Length, Blocked, Record Format 



94 



If, in Figure 95, the three variable- 
length records (in physical record 1) will 
never exceed 80, 100, and 50 positions re- 
spectively, then the block length would be 
230. 

The entry must be right- justified, lead- 
ing zeros may be omitted. 

For blocked variable-length records , RPG 
allocates buffer space, depending on the 
type of I/O device specified, by either of 
the following formulas. 

For printer or punch I/O devices, 

buffer si ze=4 + 5(|||§ 3 ifM|| S 3) + block length 

For all other I/O devices, 

buffer size=4+4 ( block -Length } +bl k leng th 
record length ^ 



Blank If no entry is made in this column 
for the file, the entire file will 
be processed sequentially. This 
entry applies to indexed-sequential 
files only. 



LENGTH OF RECORD ADDRESS FIELD (29-30) 
(Record Address File Only) 

If the file being defined is a record- 
address file, enter the number of positions 
that each entry in the RAF occupies. 

For example, if a six-position part num- 
ber field is used in the RAF, the entry 
would be a 6 . 



RECORD LENGTH (24-27) 

This specification is used to enter the 
length of the logical records contained in 
the file. If the file contains records 
that are variable in length, enter the 
length of the largest record. (The entry 
must be right- justified.) 

NOTE 1 ; If the block length equals the 
record length, RPG considers the file to 
have unblocked records for both fixed- 
length and variable-length records. 

NOTE 2 ; If the block length is greater 
than the record length, RPG considers the 
file to have blocked records for both fixed- 
length and variable-length records. 



MODE OF PROCESSING (2 8) 
(Non-sequential DASD Only) 

This specification is used to indicate the 
method or mode by which the file is proc- 
essed. Acceptable entries are listed here 



RECORD ADDRESS TYPE (31) 
(Non-sequential DASD Only) 

If the records from the file are to be re- 
trieved by using record keys, enter a K in 
this column. The K indicates that the file 
defined on this line will be processed, 
using a record key. 

If the records are to be retrieved by 
the record identification, enter an I in 
this column. 



TYPE OF FILE ORGANIZATION (32) 
(Non-sequential DASD Only) 

Enter an I if the file has indexed- 
sequential organization. Enter a D in this 
column if the file has direct organization. 



RULES FOR DASD SPECIFICATIONS 
(Columns 28, 31, and 32) 



Entry 
L 



Enter an L in this column if a seg- 
ment of the file is to be proc- 
essed. The upper and lower limits 
of the file will be supplied, in 
this case, by a Record Address 
File (RAF) ., The RAF will be sup- 
plied by the user. This entry 
applies to indexed-sequential 
files only. 

Enter an R in this column if the 
user's records are to be proc- 
essed randomly. In this case, the 
records to be processed will be 
obtained by a record-address file, 
or a chaining file. This entry 
applies to files with direct or 
indexed-sequential organization. 



The four rules listed below summarize the 
entries for the specifications Mode of 
Processing, Record Address Type, and Type 
of File Organization . 

1. If a direct access storage device is 
not used in the system, columns 28, 31, 
and 32 are left blank. 

2. If the type of file organization is 
Sequential, then columns 28, 31, and 
32 are again left blank. 

3. If the type of file organization is 
indexed-sequential (I in column 32) , 
then column 31 must contain a K and 
column 28 can be either L, R, or blank. 

4. If the type of file organization is 
direct (D in column 32) , then column 31 
can contain either a K or I, and column 
28 can only contain an R. 
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Table 3 illustrates the code combinations 
possible for these three specifications. 



OVERFLOW INDICATOR (33-34) 

If the file defined on the line is a print- 
er file or an output file with an associ- 
ated Line Counter Specifications sheet and 
overflow indicators are used, enter the 
overflow indicator associated with the 
file. A maximum of eight overflow indica- 
tors is allowed. The following are per- 
missible overflow indicators: 



OA 


OE 


OB 


OF 


OC 


OG 


OD 


OV 



EXTENSION CODE (39) 

This specification is used to indicate to 
the RPG processor that additional informa- 
tion about the file is coded on the File 
Extension Specifications sheet or Line 
Counter Specifications sheet. 

Enter an E in this column if the file 
defined on the line is a: 

Chaining file 

Table file 

Record Address file (RAF) 

These files always have additional specifi- 
cations on the File Extension Specifications 
sheet . 

Enter an L if the Line Counter Specifi- 
cations sheet is used for the output file 
described on this line. If line counter is 
specified, TAPE or DISKll must be specified 
under Device (40-46) . 



KEY FIELD STARTING LOCATION (35-38) 
(DASD Only) 

This specification indicates the location 
of the key field within the data record. 
This specification is provided so that the 
key field may be located anywhere within 
the data record . 

The entry for this specification is the 
starting position of the key field. For 
example, if the key field is in positions 
112 through 116, the entry would be 112. 

The entry must be right-justified, lead- 
ing zeros may be omitted. 

This entry is required for indexed- 
sequential files only and is blank for di- 
rectly organized files. 



NOTE: It is possible to use the Line 
Counter Specifications sheet and still put 
out the data set directly to a printer. To 
accomplish this it is necessary to specify 
the Device as TAPE or DISKll on the File 
Description Specifications sheet and to 
specify the printer as the output device 
via a DD card at execution time. 

DEVICE (40-46) 

This specification relates a file to a spe- 
cific type of input or output unit during 
program compilation time. 

If the output file is a printer, enter 
PRINTER in columns 40-46. 

If the file is an input or output file 
and it is associated with a card reader or 



Table 3. Processing Direct Access Storage Files 



Type of File 
Organization 
(Column 32) 


Record Address Type 

(Column 31) 


Mode of Processing 
(Column 28) 


Sequential (blank) 


Not applicable (blank) 


The entire file (between limits) (blank) 
will be processed 


Indexed-Sequential (1) 


Record Key (K) 


The entire file will be processed (blank) 


A segment of the file will be processed (L) 
The limits to be processed are supplied 
by a Record Address File (RAF) 


The records will be processed randomly (R) 
The addresses are supplied : (a) by an 
RAF, or (b) by the data contained in the 
chaining field of an input record. 


Direct (D) 


Track address with 

Record Key (K) 

or, 

Track Address with 

Record Identification (1) 


The records will be processed randomly. (R) 
The addresses to be converted are supplied 
by an RAF, or by a chaining file.-Conversion 
is required for RAF or chaining file . 
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card punch unit, enter one of the follow- 
ing: 

READ01 IBM 2501 Card Reader 

READ20 IBM 2520 Card Read-Punch 

READ40 IBM 2540 Card Read-Punch 

READ42 IBM 1442 Card Read-Punch 

If the file is an input or output file 
and it is associated with a tape unit enter 
TAPE in these columns . 

If the file is associated with an IBM 2311 
Disk Storage Drive enter DISKll . 

SYMBOLIC DEVICE (47-52) 
Not used. 

ENTRIES FOR FILE DESCRIPTION SHEET 

Figure 96 shows several examples of en- 
tries on the File Description Specifications 
sheet. The numbers to the right correspond 
to the numbered explanations that follow. 

1. The P in column 16 indicates the in- 
put file INPUT is the primary file. 
The E in column 17 indicates that the 
end-of-job condition will occur when 



this file is depleted. The file is 
ascending (A in column 18) . The block 
length is 80, and each record is 80 
characters long. The E in column 39 
indicates that the file will be refer- 
enced on the File Extension sheet. 
This file is read in on an IBM 1442 
Card Read -Punch. The Device code is 
READ42 . 

The record- address file defined on this 
line has a fixed format (column 19) . 
It has a block length of 80 . Each 
record is 80 characters long and the 
length of each record-address field is 
8. The E in column 39 indicates that 
the File Extension sheet will be used. 
The record-address file is read into 
the program by an IBM 2501 Card Reader. 
The Device code is READ01. 
The third file defined on this sheet is 
a table file. The T in column 16 in- 
dicates that it is a table file. It 
has a fixed format, a block length of 
200, and a record length of 100. 
Column 39 (E) indicates that it will 
be further defined on the File Exten- 
sion sheet. The file is read in on 
magnetic tape, therefore the Device 
code is TAPE. 

MASTCUST is an input file that will be 
processed under the control of another 
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file. It is a chained file (C in col- 
umn 16) . It will be processed ran- 
domly (R in column 28) . The record 
addresses that will be referenced by 
the chaining file are record keys (K 
in column 31) , and the file is orga- 
nized indexed-sequentially (I in col- 
umn 32) . The key field begins in 
position 46 of the record. This file 
is located on a direct access storage 
device and is given the Device code of 
DISK11 . 

The update file DISKUPDT (U in column 
15) will be used for input, and it will 
be updated after processing of each 
record has been completed. It is an 
index ed-sequential file, and it will 
be processed randomly. The C in col- 
umn 16 indicates that the file is a 
chained file. In this example, the 
record length is 200 with a block 
length of 400 . The key field begins 
in position 1 of the record. 

This file is located on a direct ac- 
cess storage device and is given the 
Device code of DISKll . 

The file CARDREC is a combined file (C 
in column 15) . Assume that the file 
will be used as input, and additional 
information will be punched in the in- 
put cards during processing. It is a 
secondary file (S in column 16) . This 
combined file is read in and punched 
out on an IBM 1442 Card Read-Punch. 
The Device code is specified as READ42. 
The file OUTPUT is a printed report in 
this example. It is variable in 
length, and the longest record is 132 
characters. The overflow indicator 
for this file is OF (columns 33-34) . 
This printed report has a Device code 
of PRINTER. 



LABELS (5 3) 

When label processing is used for a tape 
or disk, the program checks the labels on- 
the input file to see if the correct file 
is on-line. The output files are checked, 
and if the label has expired, a new label 
is written. 

If nonstandard labels are used for mag- 
netic tape files, nonstandard label proc- 
essing routines must be provided by the 
user and incorporated in the operating 
system at system generation time. (For 



details refer to IBM System/ 360, Operating 
System, System Programmer's GuideT) The 
appropriate nonstandard label processing 
routine is selected and executed by the 
operating system. 



Label Options in RPG 

The specification Label (column 5 3) pro- 
vides three options for label processing in 
the RPG program. 

1. S Standard Labels . Label processing 

is provided by the RPG program. 
No additional programming is re- 
quired by the programmer . 

2 . E Standard Labels Followed by User- 

Standard Lables . RPG provides 
processing for the standard labels 
and then provides an automatic exit 
to a user subroutine for the proc- 
essing of the user-standard labels. 
(See next specification Name of 
Label Exit. ) This option is not 
available for index ed-sequential 
files . 

3. b No Labels . An entry of blank in- 

dicates no label processing is to 
be performed by the RPG program. 
This option is not available for 
DASD files. 



NAME OF LABEL EXIT (54-59) 

This specification must contain the name 
of the routine written by the user to proc- 
ess user standard labels (E in column 5 3) . 
The name can be either alphabetic or num- 
eric, but the first character must be 
alphabetic. If the entry is shorter than 
six characters, it must be left-justified. 

Refer to Control Program Services (see 
Preface ) for label exit register conventions 



EXTENT EXIT FOR DAM (60-65) 

Not used. 

COMMENTS (66-74) 

Leave these columns blank unless comments 
are entered. 

This concludes the description of the 
File Description Specifications sheet. 
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FILE EXTENSION SPECIFICATIONS SHEET 



Entries made on the File Extension sheet 
provide information to RPG about such func- 
tions as chaining files and tables used in 
the object module, and information about 
record-address files. These functions are 
illustrated in Figure 97. 

In the sections Using Tables in the 
Object Module arid Processing Multiple 
Input Files detailed information and exam- 
ples show how to use these functions. 

The entries allowed on the File Exten- 
sion sheet are discussed in the following 
section. 



RECORD SEQUENCE OF THE CHAINING FILE (7-8) 

This specification is used only for chain- 
ing files. The entry for this specifica- 
tion is the same entry that is made for the 
chaining file in Sequence (columns 15-16) 
on the Input Specifications sheet. 

NUMBER OF THE CHAINING FIELD (9-10) 

This specification is used only for chain- 
ing files. The entry for this specifica- 
tion is the identifying number of the 
chaining field (CI through C9) . This number 
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was entered in Chaining Field (column 61-62) 
of the Input Specifications sheet. 



FROM FILENAME (11-18) 

This specification is used in conjunction 
with the next specification To Filename 
(19-26) . The purpose of these two speci- 
fications is to identify — for the RPG pro- 
gram — the relationship between two files. 
For example, they provide the name of a 
chaining file and the name of the file that 
is chained to it. Both the From Filename and 
To Filename are taken from Fi lename (columns 
7-14) of the related entry from the file 
description sheet. 

Figure 98 illustrates the entries for 
those two specifications. 



TO FILENAME (19-26) 

The entries for this specification are 
described above and in Figure 98. 



both the arguments and functions are enter- 
ed on one input unit, the table file is 
known as an "alternating" table file. That 
is, the input record contains an argument 
field followed by a function field, fol- 
lowed by the next argument field, etc. In 
this case, the argument table is described 
in columns 27 through 45, and the function 
table is described in columns 46 through 57 
on the same specification line. 

If only an argument table is used, it is 
still described in columns 27-45, and col- 
umns 46-57 are left blank. 

It is possible to have the arguments con- 
tained in one input file and the functions 
in another input file. In this case, each 
file is described on a separate specifica- 
tion line in columns 27 through 45, and 
columns 46-57 are left blank. 

NOTE: It is not a requirement of the pro- 
gram that the arguments must be specified 
first. The function entries may be listed 
first, however for the following specifica- 
tion descriptions the manual assumes the 
argument entries are specified first. 



TABLE NAME (27-32) 

This specification and the remaining speci- 
fications on the form (columns 33-57) are 
used to describe table files. Table files 
are processed in the same order in which 
they appear on the File Extension Specifica- 
tions sheet. This specification is also 
used to specify the name of the address con- 
version routine for an RAF or chaining file. 

A table file is composed of a table of 
arguments and a table of functions. If 



Specifications for Table Name 

This specification contains the name of the 
argument table. The name must be in the 
form TABnnn. The entries nnn may be any 
alphameric characters. 

When a file that has direct organization 
is processed under control of a record- 
address file or a chaining file, the entry 
for these columns is the label of the user's 
conversion routine. 



Type of File 


* From Filename (11-18) 


* To Filename (19-26) 


Chaining Files 


Chaining Filename. This is the file that has the 
data record containing the chaining field. The name 
of the file is taken from columns 7-14 of the File 
Description Sheet. 


Chained Filename. This is the file from which 
the data record is obtained. The name of the 
file is taken from columns 7-14 of the File 
Description specification for the Chained File. 


Record Address 
File 


The name of the record-address File is entered in 
this specification. 


The name of the file that contains the data 
record to be processed is entered in this 
specification . 


Table Files 


If a Table file is being defined (columns 27 through 
57) enter the name of the file that contains the 
table. 


If the table file being defined, will be 
put out after it is updated, enter the name 
that was assigned to it on the Output-Format 
sheet. If it is not being put out, leave blank. 



* All entries must be left-justified 

Figure 98. From and To Filenames 
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Figure 99 illustrates the File Extension 
specifications for a Record Address file 
(RAF) and the master customer file it is 
used with. 

The concepts of chaining and record- ad- 
dress files have not been discussed at this 
point in the publication. For a complete 
discussion of chaining, address conversion, 
and record-address files, see Processing 
Multiple Input Files. 



NUMBER OF TABLE ENTRIES PER RECORD (33-35) 

Enter in columns 33-35 the maximum number 
of table entries (that is, arguments or 
functions) that are contained in each input 
record. The entry must be right-justified. 



NUMBER OF TABLE ENTRIES PER TABLE (36-39) 

In these columns, enter the exact number 
of table entries (arguments or functions) 
contained in the table. The entry must be 
right- justified. 



PACKED (43) 

If the data for the table is in the packed- 
decimal format, enter P in this column. 
Otherwise, leave this column blank. 



DECIMAL POSITIONS (44) 

If the data contained in the table is nu- 
meric, enter the number of decimal posi- 
tions (1-9) . Enter a zero if there are no 
decimal positions. If the data is alpha- 
meric, leave this column blank. 



SEQUENCE (45) 

If the data contained in the table is in 
ascending sequence, enter an A in this col- 
umn. If the data contained in the table is 
in descending sequence, enter a D in this 
column. Leave this column blank if the data 
contained in the table is not in ascending 
or descending sequence or if this specifica- 
tion is not required. 



The above two entries refer to tables, NOTE: The next four specifications (col- 



NOTE 

not to files. Thus, in alternating table 

files the entries are the total number of 

arguments or functions, not the sum of the 

two. 



LENGTH OF TABLE ENTRY (40-42) 

Enter in columns 40-42 the length of each 
table entry. The maximum size of a numeric 
entry is 15 characters, of an alphameric 
entry 256 characters. The entry must be 
right- justified. 



umns 46-57) are used only if alternating 
arguments and functions are read in on one 
input unit. The entries for these speci- 
fications are written on the same specifica- 
tion line as the entries in columns 33-45. 



TABLE NAME (46-51) 

If alternating arguments and function tables 
are used, enter the second table name in 
these columns. It must be of the form 
TABnnn. The entry must be left-justif ied. 
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LENGTH OF TABLE ENTRY (52-54) 

Enter in these columns the length of each 
table entry. The maximum size of a numeric 
entry is 15 characters; of an alphameric 
entry 256 characters. The entry must be 
right- just if ied. 



PACKED (55) 

Enter a P if the data for the table is in 
the packed decimal format. Otherwise leave 
this column blank. 



DECIMAL POSITIONS (56) 

If the data contained in the table is nu- 
meric, enter the number of decimal positions 
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(1-9) . Enter a zero if there are no deci- 
mal positions. If the data is alphameric, 
leave this column blank. 



SEQUENCE (57) 

If the data contained in the table is in 
ascending sequence, enter an A in this col- 
umn. If the data contained in the table 
is in descending sequence, enter a D in this 
column. Leave this column blank if the 
data contained in the table is not in ascend- 
ing or descending sequence or if this speci- 
fication is not required. 



COMMENTS (58-74) 

Leave columns 58-74 blank, unless comments 
are entered in these columns. 



ENTRIES ON THE FILE EXTENSION SHEET 

Figure 100 shows several examples of en- 
tries that can be made on the File Extension 
sheet. The numbers to the right of the 
entries correspond to these explanations: 

1. In this example, INPUT is a card file 
containing the record key that will be 
used to process records in the DASD 
file MASTCUST. The file INPUT is the 
chaining file. That is, it is the file 
that links or chains to another file 



(in this case MASTCUST) . The field 
contained in INPUT, which is used to 
link the two files, is the chaining 
field. 

The record sequence of the input 
file is taken from the Input Specifica- 
tions sheet. CI is the number of the 
chaining field. Thus, INPUT is chain- 
ed to MASTCUST by using a field de- 
fined on the input specifications that 
contains CI in columns 61-62. A com- 
plete discussion of chaining may be 
found in Chaining at the back of this 
publication. 

In this example, RAFFILE is a record- 
address file that supplied the ad- 
dresses of the records to be processed 
in the file DISKUPDT. 

TABFIL is the name of a table file that 
contains both a table of arguments and 
a table of functions. 

The arguments in the file are iden- 
tified by the table name of TABARG. 
The argument table is described in 
columns 33-45. There are 10 arguments 
in each record. The number of argu- 
ments in the table is 150 and each 
argument is 10 characters long. The 
arguments are numeric and there are no 
decimal positions, thus the entry is 
(column 44) . 

The functions in the file are iden- 
tified by the table name TABFUN. The 
function table is described in columns 
52-57. Each function is 10 characters 
long and each function is organized in 
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the form: argument-function. There- 
fore, TABARG was specified first* 
This example shows the specifica- 
tions for a table file that contains 
only arguments. After the table of 
arguments is updated the table is to 
be written on an output unit. 

TABFIL is the name of the table 
file. 

NEWTAB is the name given to the 
table file when it is being written 



on the output unit (output operations) . 
The arguments in the file are iden- 
tified by the table name of TABREC. 
The argument table is described in col- 
umns 33-45. Ten table entries are in 
each record. The number of table en- 
tries in the table is 150, and each 
table entry is 10 characters long. 
The data is numeric, but there are no 
decimal positions, thus the entry is 0. 
Columns 46 through 57 are left blank. 
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USING TABLES AND EXIT ROUTINES IN THE OBJECT MODULE 



This section of the publication contains 
information on: 

1. How to create and use tables, and 

2 . How to transfer control from the RPG 
program to a subroutine coded by the 
user, and how to return to the RPG 
program. 



USING TABLES IN THE OBJECT MODULE 

RPG enables the programmer to use tables 
in the object module. A table is nothing 
more than a systematic arrangement of data 
which is used by the object program in 
much the same manner that a shipping clerk 
would use a rate table for obtaining 
freight rates. The clerk might scan the 
table for the desired city and then select 
the corresponding rate. 

A table may consist of two parts: an 
argument and a function . In Figure 101 the 
table consists of part numbers (arguments) 
and prices (functions) . If the price of 
part number 10 is wanted, the table is 
searched until part number 10 is found. 
The corresponding function of 10 in the 
table is 155. (The 155 represents $1.55, 
in this example.) The number used to search 
the table is called the search argument . 
The card file in Figure 101 contains part 
numbers that have been placed in the table 
in a predefined sequence. The cards do not 
contain the prices of the parts . The part 



number is selected from the card by the RPG 
program, the table is searched, and the price 
is retrieved and made available for addition- 
al processing. Tables are loaded into stor- 
age by the RPG object module before any 
files are processed. 

All entries in a table will be: 

1. Arguments, 

2. Functions, 

3. Alternating arguments and functions, or 

4. Alternating functions and arguments. 

Figure 102 shows these four possibilities. 
Rules for Forming Tables 

1. Each unit of table data is called a 
table entry. That is, each argument 
is a table entry, and each function 
is a table entry. 

2. The collection of all argument entries 
is assigned a name. The collection of 
all function entries is assigned a 
name. 

These table names must be unique, 
and must contain the letters TABnnn 
(nnn may be any alphameric entry) . In 
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Figure 106 the alternating table file 
called RATETABL is split into the 
collection of arguments (TABNUM) and 
the functions (TABRAT) . RATETABL is 
the name of the file containing these 
two tables . 
3. All tables may be loaded from the same 
device in the order they are specified 
on the File Extension sheet. The 
tables will be loaded into storage 
before the object module is processed, 
and each line entiy on the File Exten- 
sion sheet must have: 

a. A file name (columns 11-18) . Mul- 
tiple file extension specifica- 
tions for any table file are 
allowable. 

b. Entries in columns 27-45 if the 
table is only arguments or func- 
tions . 

c. Entries in columns 27-45 and col- 
umns 46-57 if the table consists 
of alternating arguments and func- 
tions . 



Rules for Creating Records Containing Table 
Data 

1. Each record must begin with the first 
table entry of that record in posi- 
tion 1. 

2 . All records must have the same number 
of table entries, except the last. In 
Figure 104, the first card in the table 
file has seven table entries. All sub- 
sequent card records must have seven 
table entries. For example, the second 
card could not contain six; the third 
could not contain eight . 

3. All entries must be adjacent in every 
record. In Figure 10 3, the first entry 
begins in Position 1 and the second 
entry begins in position 4. No blanks 
can be contained between the table 
entries . 

4. All entries belonging to a table must 
have the same length. In Figure 10 3, 
each argument is three positions long, 
and each function is six positions long, 
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When alternating tables are used, each 
record must begin with an entry of the 
same type. Each record must always 
begin with an argument, or each record 
must always begin with a function as 
shown in Figure 103. 

When alternating tables are used, the 
table entries in each record must not 
be split. Function 3, for example, 
must be in the same record as argument 
3. It is not permissible for a func- 
tion to appear in a different record 
from its corresponding argument. 
If a table consists of all arguments 
or all functions, an argument or a 
function must not be split. Assume 
that argument one, argument two, argu- 
ment three, and argument four are con- 
tained in the first record. No part of 
argument four could overflow into the 
second record. Figure 104 illustrates 
the correct way to specify records con- 
taining arguments or functions. 
The tables may be ascending, descend- 
ing, or in no sequence. If the tables 
are not in sequence, only an equal 
search can be performed. 



9 . The records of a table must be on a 
sequentially organized file. 
10. The table file to be loaded must con- 
tain the exact number of table entries 
as specified on the File Extension 
Specifications sheet. 



RETRIEVING UPDATED TABLES 

After a table has been updated, the table 
may be written out for later use. 

On the File Description sheet, the pro- 
grammer enters the specifications for the 
output file that will contain the updated 
table. The file must be defined as an out- 
put file. 

On the File Extension sheet, the program- 
mer enters the name of this output file in 
To Filename. This entry is made on the 
same specification line that defines the 
table file. 

The updated table file will be put onto 
the output file after the program has reach- 
ed the end-of-job condition (LR condition) . 

The name of the file need not be enter- 
ed on the Output-Format Specifications sheet. 









/ 


^rg. 
15 


Arg. 
16 


Arg. 
17 


Arg. 
18 


Arg. 
19 


Arg. 
20 


Arg. 
21 








/ 

Arg. 
8 


Arg. 
9 


Arg. 
10 


Arg. 
11 


Arg. 
12 


Arg. 
13 


Arg. 
14 








/ 

Arg. 
\ 


Arg. 
2 


Arg. 
3 


Arg. 
4 


Arg. 
5 


Arg. 
6 


Arg. 
7 































1 6 11 16 21 26 31 36 

Figure 104. Table File Containing All Arguments 



106 



If the updated table is to be put out on a 
printer, no automatic skip to a new page 
will be initiated by the RPG program. 

The table written out has the same for- 
mat as specified for the input table in 
columns 33-45 or 52-57 on the File Exten- 
sion Specifications sheet. 



ment next-lower than the search argument, or 
it may search for the table argument equal 
to the search argument. An entry must be 
made in columns 54-59. Combinations of high- 
equal or low-equal searches may be specified 
by placing indicators in the appropriate 
two of the three fields (columns 54-59) . 



METHODS OF PROCESSING TABLES 

The operation code LOKUP entered on the 
Calculation Specifications sheet causes a 
table lookup operation to be performed. 

Factor 1 contains the search argument. 
The search argument may be a literal or a 
field name. 

NOTE: The length of the data in the argu- 
ment table (table argument) must be equal to 
the length of the search argument . The 
length includes the decimal positions. 

Factor 2 contains the name of the table 
which contains the arguments. 

The Result Field contains the name of the 
table from which an associated function is 
to be located. 

The Result Field may be left blank if the 
user wants to determine if an argument is 
present in the table, but does not require 
the corresponding function. 

Resulting Indicators (columns 54-59) must 
always have an entry when the table lookup 
operation is performed. The presence of in- 
dicators in this specification indicates the 
type of lookup to be performed. The indica- 
tors are turned on whenever the condition is 
satisfied. 

The program may search for the table 
argument next-higher than the search argu- 
ment, or it may search for the table argu- 



Performance of LOKUP 

The lookup operation is performed in this 
way: 



The object module takes the field name 
or literal in Factor 1 and searches the 
table indicated by Factor 2. The kind 
of lookup is determined by the entries 
in Resulting Indicators . 
After the proper entry from the argu- 
ment table has been found, the corre- 
sponding function from the function 
table indicated by the entry in Result 
Field is located and placed in the 
special holding area of the function 
table. If the proper table argument is 
not found, the indicators in columns 
54-59 are not turned on. 



Using LOKUP Data Obtained 

Other operations may be performed using the 
data just found by the table lookup opera- 
tion. This data is stored in the special 
holding area within the function table and 
can be retrieved by merely using the name 
of the function table in either Factor 1 or 
Factor 2 of an operation. 

Figure 105 illustrates several ways the 
data found by the operation may be used. 
The numbers on the figure correspond to 
this discussion. 
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Factor 1 contains the name of a field. 
The field PERCNT contains the search 
argument. The name of the table that 
contains the argument is TABCST. The 
name of the table that contains the 
corresponding function is TABAMT. The 
program will search for the value in 
the argument table that is equal to the 
search argument (columns 58-59) . 
The data found in TABAMT from the pre- 
vious operation is used as the search 
argument in this example. (TABAMT is 
the name of the table; however, this 
name now refers to the special holding 
area of the table TABAMT. ) The pro- 
gram searches for the value in the 
table TABARG that is equal to the 
search argument (columns 58-59) . 
In this example, the data obtained from 
the function table TABFUN from the pre- 
vious lookup operation is moved to a 
field called WITHTX. It will be used 
for additional calculations. 
In this example, the data found in the 
function and argument tables is up- 
dated. The literal +25 is the search 
argument. The table TABFIL is search- 
ed for +25 (indicated by the entry in 
columns 58-59) . A new entry for the 
corresponding function of +25 is en- 
tered in TABLIT and in the special 
holding area. The new function is 
+500; the new argument is +30. 
In example 5, a lookup with only one 
argument table turns on Indicator 30 



if SEARCH is equal to an argument in 
TABNUM. If 30 is not on (N30) , Hi is 
turned on by the SETON instruction. 
6. This example illustrates the facility 
for adding to the table. In this ex- 
ample, the LOKUP operation is condi- 
tioned on the Indicator 01. (Indica- 
tor 01 is turned on when the input 
file contains records with additional 
table information. Each record con- 
tains the two fields, NEWARG and NEW- 
FUN.) To determine the first vacant 
argument, a field of zeros is used as 
the search argument. Zeros are used 
because the argument field is numeric. 
Blanks would be used if the argument 
field had been alphabetic. In loading 
the table, the vacant table entries 
must be filled with zeros or blanks 
for numeric or alphameric fields 
respectively. 

If there is an equal compare, Indica- 
tor 35 is turned on. Since the argument 
field of the table is vacant, the corre- 
sponding function field is also vacant. 
The new argument (NEWARG) is inserted 
in the TABARG field, and the correspond- 
ing new function (NEWFUN) is inserted 
in the TABFUN field. 
NOTE: Whenever a field TABnnn appears in 
columns 32-37 in the output-format specifi- 
cation and blank-after is specified (B in 
column 39) , the table value and hold area are 
updated to blanks or zero for alpha or nu- 
meric, respectively. 
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EXAMPLE OF USING TABLES 

Figures 106 and 107 illustrate an input data 
file, the way a table might appear, and the 
entries necessary on the RPG specification 
sheets. 

In this example, a card-input file con- 
tains the number of hours worked by each 
employee (columns 42-44) and the employee's 
number (columns 1-5) . The RPG program takes 
the employee number and uses it as the search 
argument to find the salary rate for the em- 
ployee. After the salary rate has been 
found, it is multiplied by the hours worked 
by the employee. The result of this opera- 
tion is the amount earned for each employee. 

In this example, the table consists of 
alternating arguments and functions. The 
way the table data might appear is shown in 
Figure 106. The name of the file that con- 
tains the arguments and functions is 
RATETABL. The collection of arguments is 
called TABNUM (table number) , and the col- 
lection of functions is called TABRAT (table 
rate) . 

Entries on the specification sheets 
follow. 



File Description Specifications Sheet 

The two files are defined on the File Des- 
cription sheet. The file containing the in- 
put card records is called TIMECARD. It is 
an input file (I in column 15) ; it is the 
primary file (P in column 16) ; and when the 
file is depleted, processing is terminated 
(E in column 17) . The records in the file 
are in ascending order (A in column 18) ; 
they are fixed-length records (F in column 
19) . Each record has a block length of 80 
(80 in columns 22-23) , and each record is 
80 characters long (80 in columns 26-27) . 
This file is read in on the IBM 2501 Card 
Reader, so the device code is READ01. 

The table file is defined on the line be- 
low the card-input file. The name of the 
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Using Alternating Arguments 
and Functions 



file (RATETABL) is entered in Filename 
(columns 7-14) . It is an input file (I in 
column 15) , and the records in the file are 
fixed-length (F in column 19) . The file 
has a block length of 80, and each record 
is 80 characters long. The E in column 39 
indicates that additional information about 
the file is coded on the File Extension 
sheet. This file is read in on the IBM 
1442 Card Read-punch, and therefore it is 
assigned the Device code of READ42. 



File Extension Specifications Sheet 

On the File Extension sheet, the table file 
is further defined. The name of the file 
is entered in From Filename (columns 11-18) . 
The collection of arguments (TABNUM) is en- 
tered in the first Table Name (columns 27-32) 
There are 8 arguments per record (columns 
34-35) , and there are 1500 arguments in the 
table (columns 36-39) . Each table entry is 
five positions long (5 in column 42) , and 
there are no decimal positions (0 in column 
44). The table is ascending (A in column 45). 
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The collection of functions is described 
in columns 46-57. The name of the func- 
tions (TABRAT) is entered in the second 
Table Name (columns 46-51) . Each entry in 
the table is four positions long (4 in col- 
umn 54) , and there are three decimal posi- 
tions specified (3 in column 56) . 

Input Specifications Sheet 



as specified by 
tion (columns 47 
number is given 
number of hours 
found in columns 
as specified by 
tion. The name 
number of hours 



the entrie 

and 51) , 
the field 
worked by 
42-44 of 
the entrie 
HRSWKD is 
worked by 



s in Field Loca- 
and the employee 
name EMPNUM. The 
the employee is 
the input record, 
s in Field Loca- 
as signed to the 
each employee. 



The input file (TIMECARD) is described on 
the Input Specifications sheet. The name 
of the file is entered in columns 7-14. The 
file is assigned a sequence of AA (columns 
15-16) , and resulting indicator 01 is turn- 
ed on whenever an input record is present 
for processing. No record identification 
codes are specified because every record 
will be processed in the same way. 

Lines 020 and 030 are used to describe 
the locations of the two input fields used 
by the program. The employee number is 
located in columns 1-5 of the input record, 



Calculation Specifications Sheet 

Three calculation specifications are shown. 
On line 010, EMPNUM (employee number) is 
used as Factor 1. The employee number is 
the search argument. The operation code 
LOKUP which is coded in Operation (columns 
28-32) causes the lookup operation to be 
performed. Factor 2 contains the name of 
the collection of arguments (TABNUM) which 
is searched. The Result Field contains the 
name of the collection of functions (TABRAT) 
Thus, this operation causes the employee 
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number (EMPNUM) to be used as the search 
argument for the data contained in TABNUM. 
The result field is four positions long 
with three decimal positions. The 03 en- 
tered in columns 58-59 indicates that in- 
dicator 03 will be turned on when the search 
argument finds an entry in the argument 
table that is equal to the search argument. 

The specifications on line 020 are per- 
formed when indicator 03 is on. The rate 
for the employee (TABRAT) which has just 
been located is multiplied by the number of 
hours worked (HRSWKD) , and the result is 
stored in EARNS which is five positions long 
and has two decimal positions. The answer 
is half-adjusted. 

If the search argument does not find an 
equal entry in the argument table (indica- 
tor 03 is not on) , the specifications on 
line 030 are performed. Columns 9-11 con- 
tain the specification N03. 

The literal +000.00 is then moved to the 
field EARNS, specifying that the employee 
does not have an entry in the table. 



EXIT TO A USER'S SUBROUTINE 



EXIT will occur everytime the detail cal- 
culations are performed. Columns 28-31 must 
contain the operation code EXIT and Factor 2 
must contain the label of the user's sub- 
routine. The subroutine name may be from 
1-6 alphameric characters with the first 
character being alphabetic. Factor 1 is 
not used. 



POSITION OF EXIT IN THE CALCULATION 
SPECIFICATIONS 

The following results will be obtained 
depending on the location of the EXIT code 
on the Calculation Specifications sheet. 



GENERAL INFORMATION 

By use of the EXIT operation code on the Cal- 
culation Specifications sheet, RPG provides 
the facility to transfer control from the 
RPG object program to some subroutine that 
has been coded independently. A subroutine 
might be a standard routine such as a state 
withholding tax. 

The subroutine, written in the assembler 
language, is coded by the user, and entries 
made on the calculation sheet enable the 
programmer to: 

1. Exit from the RPG program to the sub- 
routine, 

2. Execute the subroutine, 

3. Reference fields and indicators defined 
in the RPG program (RLABL usage) , 

4. Reference fields defined in the user's 
subroutine (ULABL usage) , and 

5. Return to the main program after the 
subroutine has been performed. 



Calculation Entry 

1. First Detail 

2. Last Detail 

3. First Total 



4. Last Total 



When the Exit 
Will Occur 

At the end of the data 
routine (after the 
data is extracted from 
the input record) . 
Immediately before 
heading records are 
written. 

At the end of the in- 
put routine (after the 
record-type has been 
determined and the con- 
trol-field break has 
been tested) . 
Immediately before the 
total records are 
written. 



GENERAL RULES FOR USING EXIT 

RPG provides the facility for the subrou- 
tine to test indicators and use tables and 
fields that have been defined in the RPG 
program. RPG also provides the facility 
for the RPG program to use fields that have 
been defined in the subroutine. These two 
facilities are provided by using the two 
operation codes RLABL and ULABL. RLABL and 
ULABL operations can be specified anywhere 
within the calculation specifications. 

RLABL 



HOW TO CODE EXIT 



If the user has defined a field or table in 
the RPG program and it is to be used in the 
subroutine to which the EXIT will occur, he 
must code: 



On the Calculation Specifications sheet, the 1. 

EXIT operation can be a conditional opera- 2. 
tion. When entries are placed in columns 

7-8, 9-11, 12-14, or 15-17, the EXIT will 3. 

occur when the designated conditions are 4. 
satisfied. If no indicators are used, the 



RLABL in Operation . 

The name of the field or table in 

Result Field . 

The length of the field in Field Length, 

The decimal indication in Decimal 

Positions. 
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The user may need to reference, in the 
subroutine, indicators that are used in 
the RPG portion of this program. To do 
this, the user must code: 



1. RLABL in Operation. 

2. INnn in Result Field. 



The nn repre- 



sents the specific indicator that the 
user wants to test in the subroutine. 
Therefore, if MR was to be tested in 
the subroutine, he would code INMR in 
Result Field. 



ULABL 

If the user has defined a field in the sub- 
routine, and this field is to be used in 
this RPG program he must code: 

1. ULABL in Operation . 

2. The name of the field in Result Field. 

3. The length of the field in Field 
Length. 

4. The decimal indication in Decima l 
Positions. 

When executing the subroutine, the user 
may have to use an indicator in the sub- 
routine, and later reference that indica- 
tor in the RPG program. This can only be 
accomplished by first defining the indicator 
in the RPG program and then defining it in 
a RLABL operation. 



USE OF REGISTERS 

The way in which registers are used by the 
programmer is strictly defined. These rules 
must be followed: 



1. 
2. 



4. 



5. 



The using register that contains the 
entry address of the called subroutine 
is register 15. 

When control of the program passes 
from the RPG program to the subroutine, 
the address of the RPG instruction to 
which the subroutine must return is 
stored in register 14. 
The RPG instruction to which the sub- 
routine returns is the instruction that 
follows the EXIT operation. 
If registers are used within the sub- 
routine the contents of the registers 
the programmer intends to use must be 
stored before the subroutine is ex- 
ecuted. 

Before the subroutine transfers back 
to the RPG program, the registers 
must be restored to their original 
contents. 



USING INDICATORS, FIELDS, AND TABLES IN 
THE EXIT ROUTINE 



Indicators 

If, in the exit subroutine, the user sets 
on, sets off, or tests indicators, he must 
observe the following rules: 

1. To set on an indicator, set the data 
located at INnn to hexadecimal FO. 

2. To set off an indicator, set the data 
located at INnn to hexadecimal 00. 
(Indicator L0 and 00 must never be 
set off.) 

3. To test indicators: 
If on, the data at INnn will be 
hexadecimal FO. 

If off, the data at INnn will be 
the hexadecimal 00. 



a. 



b. 



Fields 

If numeric data from the RPG object pro- 
gram is used in the subroutine, it will be 
in the packed-decimal format. If numeric 
data from the subroutine is supplied to 
the RPG object program, it must be in the 
packed-decimal format. 



Tables 



The subroutine may refer to a table which 
is defined in the RPG program. As each 
table is created in the program, a "Table 
Linkage Field" is created for it. This 
field is a control field utilized by table 
operations. The format of this field is 
illustrated in Figure 108. Significant sub- 
fields are described below. 

1. This subfield (1 byte) contains switches 
used by RPG. 

2. This subfield (1 byte) contains the 
length minus 1 of each table entry. 
For numeric fields this subfield con- 
tains a number one less than the un- 
packed length although the actual table 
entry is in packed format. 

3. This subfield (2 bytes) contains the 
number of entries in the table. 

4. This subfield (4 bytes) contains the ad- 
dress of the beginning of the table. 

5. This subfield (4 bytes) contains the ad- 
dress of the byte following the end of 
the table. 

6. This subfield (4 bytes) is used by the 
RPG object program as a pointer to the 
selected table entry. For example, as 
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Figure 108. Format of Table Linkage Field 



the result of a LOKUP operation, this 
sub fie Id contains the address of the 
corresponding function retrieved from 
the table when an equal is found in 
the argument table. 
7. This subfield is used by the object 

module as a transient work area. For 
example, as the result of a LOKUP oper- 
ation this subfield contains the data 
from the function retrieved from the 
table when an equal is found in the 
argument table. (This subfield is 
word-aligned and its length is equal 
to the length of a table entry.) This 
area is also called the "special hold- 
ing area". 

The subroutine can use the data retrieved 
from a preceding LOKUP operation by simply 
referring to TABnnn. (Assuming that TABnnn 
has been defined by an RLABL operation.) 
The effective address of any reference to 
TABnnn is the first byte of subfield 7. To 
access the table itself, the address con- 
tained in subfield 4 of the Table Linkage 
Field for TABnnn must be used. 



EXAMPLE OF EXIT TO A SUBROUTINE 

Figure 109 shows the coding steps necessary 
to implement the EXIT routine. 

1. An input file of the name INPUT turns 
on resulting indicator 01 if an X is 
in position 80. 



2. If the field AMOUNT is zero or blank, 
field indicator 02 is turned on. 

3. The operation SETOF defines (and sets 
off) indicator 14 for the RPG program 
so that it can be subsequently defined 
for use in the subroutine. (This is 
performed only if indicator 01 is on.) 

4. Whenever indicator 01 is on, the calcu- 
lation specifications entry EXIT causes 
the program to exit to the user's sub- 
routine called TAXRTE. 

5. Within the subroutine, the user wants 
three things: the AMOUNT field, and 
the indicators 02 and 14. The RLABL 
operations enable the subroutine to 
reference the AMOUNT field, to test 
indicator 02, and to utilize indicator 
14 in the subroutine. 

6. In the subroutine, assume there is a 
field (TAXAMT) that the user wants to 
use on the output-format specifica- 
tions. If the field TAXAMT in the sub- 
routine is blank, the subroutine turns 
on indicator 14. TAXAMT is referenced 
in the output specifications, but it 
will not be printed if indicator 14 is 
on. If the user chooses, he can use 

it later in the calculation specifica- 
tions. The entry ULABL enables the 
field TAXAMT to be referenced by the 
RPG program. 

7. On the output sheet, TAXAMT is treated 
as a field. 

This concludes the description of tables 
and EXIT subroutines. 
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USING THE DETAIL-TO-TOTAL BRANCH 



RPG enables the programmer to branch from 
detail calculations to total calculations 
causing the generated program to repeat cer- 
tain specifications. This repetition is 
called a detail-to-total loop. Essentially, 
this gives the programmer the facility to 
put out one or more total lines for each in- 
put record. Each total line may vary in 
content according to program specifications 
and may be put out during a detail- to- total 
loop, depending on its output indicators. 

Certain restrictions are imposed on the 
use of the detail- to- total branch by the 
flow of logic used by RPG. These restric- 
tions should be understood by the programmer 
before using the detail- to-total branch. A 
detailed example is provided by Figures 
109.1, 109.2, and 109.3. 

DATA MOVEMENT FROM INPUT AREA TO FIELD 
LOCATIONS 

Each time detail- to-total loop is executed, 
data items are moved from the input area to 
their respective field locations. If an in- 
put field is to be used as a result field 
and changed by calculations during a detail- 
to- total loop, the changes in the result 
field will be overlaid when the input fields 
are reinitialized to their input area values. 
Therefore, a new field should be defined and 
the input item moved to this new field, which 
can be then used as a result field. These 
results can thus be protected. 

An indicator can be used to allow the move 
from an input field to a new field only once, 
usually during the normal flow of logic be- 
fore a detail-to-total branch. This indica- 
tor can be used to prevent the new field 
from being overlaid with the reinitialized 
input field. 



SUPPRESSION OF NORMAL ACTIVITY 

Before performing a detail- to- total branch, 
total calculations, total lines, detail cal- 
culations, and detail lines may have to be 
suppressed to get the desired results. This 
may be done by conditioning lines and cal- 
culations with indicators. One such suppres- 
sion might be to allow data to be moved from 
an input field to a protected field only 
once. 



BRANCHING 

The branch from detail- to -total calculations 
is accomplished by a GOTO specification in 



detail calculations and a TAG in total cal- 
culations. Branching is controlled by con- 
ditioning the GOTO specification on an indi- 
cator. This indicator is set on during de- 
tail calculations to initiate the detail- 
to-total branch. The results of a total 
calculation performed during the detail- to- 
total loop may be used to set off this indi- 
cator and thus discontinue the loop. 

The indicators used to control a detail- 
to-total branch must be specified with care. 
These indicators must be specified so that 
they initiate the detail-to-total branch; but 
when the desired results of the detail-to- 
total loop have been obtained, these indica- 
tors must inhibit the branch from further 
initiation. The generated program must re- 
sume normal logic flow and read the next 
input record. Failure to control the detail- 
to-total loop in this manner may result in 
an infinite repetition of the detail-to- 
total branch. 



OUTPUT 

The sequence of output lines produced by the 
generated program is altered by the use of 
the detail-to-total branch: 

1. Total lines produced during a detail- 
to-total loop are put out first. 

2. Detail lines conditioned for output at 
detail time follow. 

3. Finally, all normal total lines (not 
conditioned as part of the detail-to- 
total loop) are put out according to 
their indicators. 

4. If the overflow indicator is turned on 
while printing total lines in a detail- 
to-total loop, all lines conditioned on 
the overflow indicator will be put out 
before that indicator is turned off. 



EXAMPLE 

In the following example (Figures 109.1, 
109.2, and 109.3) seven fields are read on 
input. They are: NAME, ADDRES , LOCATE, 
MONTH, INITIL, NUMBER, and INCRMT . The 
desired output is a set of mailing labels, 
addressed NAME, ADDRES, and LOCATE. These 
labels are dated. The first label bears the 
date MONTH, INITIL, where INITIL is the day 
of the month. The day of the month on sub- 
sequent labels is incremented by INCRMT. 
The field NUMBER determines how many labels 
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PRINTING MAILING LABELS 



O 



1 ) Heading Lines 



JOHN DOE 
805 MAIN 
ANYTOWN, USA 



ISSUE MAR. 03 



JOHN DOE 
805 MAIN 
ANYTOWNt USA 



ISSUE MAR. 10 



JOHN DOE 
805 MAIN 
ANYTOWN, USA 



ISSUE MAR. 17 



©Detail-to-Total 
loop output lines 



JOHN DOE 
805 MAIN 
ANYTOWN, USA 



ISSUE MAR. 24 



JOHN DOE ISSUE MAR. 31 
805 MAIN 
ANYTOWN, USA 

5 LABELS HAVE BEEN PRINTED FOR 

JOHN DOE 
805 MAIN 
ANYTOWN, USA 

LABELS FOR MAR. ISSUES BEGIN ON DAY 3 OF THE MONTH 
AND HAVE AN INCREMENT OF 7 DAYS. 



M3J Detail output lines 



© 



Normal total 
output lines 



Figure 109.2. Output from Detail-to-Total Branch Example 
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are produced. The following numbered steps 
refer to circled numbers on Figures 109.1, 
109.2, and 109.3. 

1. Heading lines are printed, the first 
input record is read and its type 
determined. 

2. Total calculations are suppressed as 
they are conditioned on indicator 77, 
which is on only during a detail-to- 
total loop in this example. 

3. Data is moved from the input area to 
input fields. 

4. Input data is moved from the input 
fields to new fields and protected by 
indicator 77. (The move is performed 
only when indicator 77 is off, which is 
true only during normal detail time.) 

5. Results are formed in the new fields 
and protected by indicator 77. 

6. Indicator 77 is set on, conditioning the 
detail-to-total branch, and protecting 
the new fields. 

7. A detail time test is made to decide 
whether to perform the detail-to-total 
branch or discontinue the loop. 

8. When the result of the test is low, 
indicator 88 is turned on and a detail- 
to- total branch is performed. 

9 . Total time calculations are changing 
one of the fields used in the test per- 
formed in step 7. In this manner, the 
number of times the loop is performed is 
controlled. 

10. Total lines are printed in conjunction 
with the detail- to-total loop. 

11. Step 7 is repeated. 

12. When the results for this detail record 
have been obtained, the settings for 
indicators 88 and 99 are reversed, indi- 
cator 77 is turned off and the detail- 
to- total loop is discontinued. 

13. Detail time output lines are printed and 
the next input record is read. 

14. Normal total lines are printed. 



Normal Flow of Logic 
Detail to Total Loop 



Figure 109.3. Logic Flow for Detail- to-Total 
Branch Example 
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This section of the manual is for readers 
not familiar with disk storage operations. 
It contains a general description of data 
organization and retrieval, and defines 
some of the terms you may encounter in re- 
lated literature. 



DISK STORAGE CONCEPTS 



addresses. This area is the extent area. 
One logical file can occupy more than one 
extent area. The extent areas do not have 
to be adjoining. 



DATA FILES 



INTRODUCTION AND TERMINOLOGY 

The distinction between two concepts is 
important: file organization and file 
processing. 

File Organization is the method of eirrang- 
ing data records on a direct access stor- 
age device. A file is organized during the 
development stages of the application. 

File Processing is the method of retriev- 
ing data records from the file. 

To achieve the most efficient use of 
the System/360 components, carefully con- 
sider the relationship between how a file 
is organized and how to retrieve records 
from .it. This is particularly important 
when designing data files for storage in a 
direct access storage device, such as the 
IBM 2311. 

The method of organization best suited 
to a particular file of disk records de- 
pends upon many factors. These factors 
must be analyzed for each file in each par- 
ticular application. Frequently, you can 
use more than one method of processing on 
the same file. For example, records with- 
in a file might be processed at random 
during an updating run, and sequentially 
during a billing run. 



LOGICAL FILE VS PHYSICAL UNIT 

It is important to distinguish between a 
logical file and the physical unit used to 
store the file. A logical file is a group 
of related data records, such as a pay- 
roll file. 

A physical unit for storage of data rec- 
ords could be an IBM 2400-series Magnetic 
Tape Unit, an IBM 2311 Disk Storage Drive, 
or an IBM 2501 Card Reader. 

A logical file may occupy part of a disk 
storage drive, an entire disk storage drive, 
or more than one disk storage drive. The 
location of the logical file in disk stor- 
age is defined by its lowest and highest 



Data files are recorded on such media as : 
paper, cards, tape, or disk packs. Data 
files consist of a number of individual rec- 
ords that range from a few records up to 
thousands or millions of records. 



RECORD 

A record can be defined as a collection of 
information consisting of alphameric and/or 
nonalphameric characters related to a common 
identifier. The common identifier is known 
as a record's control field , or key. Usually, 
one of the fields within a record identifies 
the record. For example, man number could 
be the key or identifier for a payroll 
record. 

The size or length of records varies 
from file to file, and can be from eighteen 
characters to 4,000 characters. 

A single record usually includes one or 
more logical data fields. A data field is 
a sequence of one or more characters which 
is treated as a processing unit of informa- 
tion. An individual data field is normally 
identified by its location within a record. 

The logical structure of records and of 
fields within records is important in high- 
speed recording media such as magnetic tape 
and disk. This logical structure is 
strongly affected by whether a record is 
of fixed- or variable-length. 



FIXED-LENGTH RECORDS 

In fixed-length record files, all records 
are allocated the same number of character 
storage positions. Identical data fields 
are present in every record, whether they 
are used or not. The control field (key) 
is usually the first field present in a 
record. 

In many applications, fixed-length rec- 
ords would make inefficient use of file 
storage space. For example, a fixed record- 
length of 850 positions would waste storage 
and processing time, if the average record 
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length is 230 positions and the minimum 
length is only 100 positions. 

Situations such as this require the 
development of space-saving techniques 
based on varying the number of storage 
positions allocated to data records. 



FILE ORGANIZATION 

Data records should be organized and stored 
to facilitate subsequent processing. The 
three types of file organization are: se- 
quential, indexed-sequential, direct. 



VARIABLE-LENGTH RECORDS 

Completely variable-length records are 
sometimes developed for more efficient use 
of storage. In this approach, the data 
portion of the record may be of any length, 
but the key (control field) size is con- 
stant. A record-length character-count 
field in each record shows the length of 
a variable-length record. 



BLOCKING RECORDS 

The length of individual data records varies 
with type of data and the application that 
requires such data. The format of a data 
record is significant to the efficient use 
of the various storage media available on 
the System/360. One important element in 
the design of data records involves block- 
ing and deblocking . Input/output units 
(storage media) ire relatively inefficient 
when used to record short blocks of informa- 
tion. To increase the efficiency of input/ 
output units, data records are assembled 
into blocks of records whose sizes are con- 
venient and efficient for processing. 

Each physical record on either tape or 
disk requires inter-record gaps. These gaps 
are blank areas used to distinguish begin- 
ning and ending points of a record. If 
records are blocked before loading onto a 
tape or disk, many of these gaps can be 
eliminated. Variable-length blocks are per- 
mitted in System/360, Operating System RPG. 
The length of a variable-length block is 
indicated by a block-length character- 
counter field present in each block. (See 
Variable-Length Records. ) 

The operating system handles the block- 
ing and deblocking of records so the user 
need only determine the most efficient 
blocking factor for his particular data file 
and equipment specifications. The system 
also creates and maintains the block-length 
and record-length count fields; no pro- 
gramming for these facilities is required 
by the RPG programmer. 

In the operating system, only the input 
records for indexed-sequentially or se- 
quentially organized files can be blocked. 



SEQUENTIAL ORGANIZATION 



The logical s 
depends upon 
appearing in 
sequentially 
store the rec 
allows for re 
or lower keys 
successively 
bers. Cards 
nized in this 
considered as 
records. 



equence of records in this file 
a significant key (control field) 
the records. To establish a 
organized file, sort and then 
ords in key sequence. This 
cords with successively higher 

(control numbers) to have 
higher physical address num- 
and tape files are always orga- 
serial manner and usually are 
one continuous " string" of 



INDEXED-SEQUENTIAL ORGANIZATION 

In this type of file organization also, the 
sequence of records depends upon a key (con- 
trol) field. The records are stored se- 
quentially in the file. This variation of 
file organization differs from sequential 
organization in two ways ; 

1. The records may be retrieved from the 
file sequentially or in a random 
sequence. 

2. Only records with transaction activity 
need be retrieved. 

These differences occur because indexed- 
sequential organization uses "index tables" 
which indicate to the program the general 
location of the records. Thus, the program 
does not have to "step through" the file, 
record after record, to locate a specific 
record. 

The index tables (prepared and maintained 
by the operating system) are analogous to 
the index card file in a library. 

For example, if the library user knows 
the name of the book or the author he can 
look in the index card file and find the 
location of the book in the book files. 
This might be an address (catalog number) 
of 426.25. He would then go to the book 
shelves, and (if it was his first time in 
the library) start at the first row of the 
book files and proceed through the rows 
until he found the shelf" that contained 
426.25. Usually, each row contains a sign 
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to indicate the beginning and ending numbers 
of all books in that particular row. Thus, 
as he proceeded through the rows, he would 
compare 426. 25 with the numbers posted on 
each row. Assume that one row was labeled 
300.88-550.00. He would then search that 
row for the shelf that contained the book. 
The shelves (like the rows) might also con- 
tain number ranges to indicate their con- 
tents. In this case, he would scan the 
shelf numbers until he found something like 
342.00-440.96. Then he would look at in- 
dividual book numbers on that shelf until 
he found 426.25. 

The RPG program uses index tables in 
much the same way to locate records orga- 
nized in an indexed-sequential file. 



DIRECT ORGANIZATION 

In direct file organization, the records 
are generally not stored in the sequence 
of their keys (control numbers) . A ran- 
domizing formula coverts the record key to 
a numerical address (physical address) of 
the storage device. The record is stored 
at the physical address developed by the 
randomizing formula. In effect, a file of 
records will be scattered throughout an 
entire disk file. 

RPG does not provide for creating a file 
with direct organization. Creation of a 
file with direct organization must be ac- 
complished by the programmer using the 
input/output macro facilities of the as- 
sembler programming system. During the 
processing of the object program the user 
has the ability to exit to a subroutine to 
perform a randomizing routine upon the in- 
put data records. RPG cannot process du- 
plicate records. (Duplicate records occur 
when two different control fields convert 
to the same physical address.) 



FILE PROCESSING 



For the three methods of file organization 
(sequential, indexed-sequential, and direct) 
there are three methods of file processing: 



SEQUENTIAL PROCESSING (Sequential files) 

In sequential processing of a sequentially 
organized file, every record in a file is 
examined, and each successive record in the 
physical file is processed in order. For 
example, in a card file, the card records 
are processed in the order that the cards 
are fed into the system. The 14th card in 
the file could not be processed until after 
the 13th card had been processed. 



SEQUENTIAL PROCESSING (Indexed-Sequential 
files) 



Sequential processing of an indexed-sequen- 
tially organized file has two variations. 

1. An entire logical file is processed. 
For example, the physical unit con- 
sists of payroll records in cylinders 
to 42 and inventory records in cyl- 
inders 43 to 99. Only the logical 
(payroll) file might be processed. 

2. Only a segment of a file is processed. 
For example, a payroll file is to be 
updated with new pay increases. The 
payroll file is in sequence by depart- 
ment, and each week the pay raises for 
various departments become effective. 
Therefore, on each week's processing, 
only segments of the payroll file are 
updated. The updating is accomplished 
by reading in a card file that contains 
the limits of the file to be processed. 
One such card record might indicate 
that the records for departments 26-41, 
are to be updated, another the records 
for departments 76-80, etc. 



RANDOM PROCESSING 

In random processing, the sequence of proc- 
essing has no relationship to the sequence 
in which the data is stored in the file. 
The data file could be organized in either 
a direct or an indexed-sequential order. 
This processing is sometimes called direct . 



1. Sequential processing of sequentially 
organized files. 

2. Sequential processing of indexed- 
sequentially organized files. 

3. Random processing of indexed-sequen- 
tially organized files and directly 
organized files. 



Indexed-Sequential Files 

To find a random record in an Indexed- 
Sequential file, an index or series of in- 
dexes is first scanned to localize the area 
of search by determining the track that 



Disk Storage Concepts 117 



contains the record. The index is a se- 
quential list of the key records (of the 
data) with corresponding track addresses. 
The entire track is then scanned to find 
the individual record to be processed. 
This kind of processing is referred to as 
processing in a random sequence with rec- 
ord keys . 

This type of processing is analogous to 
directing someone to a house location. 
"The Martin family lives on Harrison Street" 
(a track address) "and their house number 
is 4216" (a key) . 



Direct Files 



To find a random record in a direct file, 
compute the track address by the same 
randomizing formula used to load the file 
of records. You can make direct access to 
the record. Index tables are not required. 
This kind of processing is called process- 
ing in a random sequence and it can be done 
using keys or record identification (ID) . 
The record identification indicates only 
the location of the record on the track. 
For example, the 2nd, 12th, 18th, etc, rec- 
ord on the track. The program makes no 
comparison of key (control field) data when 
a record number is provided. 

This type of processing can also be com- 
pared to directing someone to a house loca- 
tion. "The Martin family lives on Harrison 
Street", (a track address) , "and their house 
is the 5th house from the beginning of the 
street. " (The 5th is the record identifica- 
tion. ) 

If random processing is performed with 
key field only, the user supplies track 
address and record key field. Starting 
with this address the program searches the 
track for the record with the correspond- 
ing record key. 



FILE PROCESSING IN RPG 

The preceding information in this section 
provided a general introduction to disk 
storage concepts for the System/360, Op- 
erating System. The material that follows 
is a summary of file processing methods for 
the RPG program. 

RPG generated programs process the 
following input file organizations: 



1. Sequential 

2. Indexed-Sequential 

3. Direct 



RPG will only create sequential output files, 



SEQUENTIAL ORGANIZATION 

The records on the file will be made avail- 
able for processing in the same order in 
which they are located on the medium. The 
file might be contained in cards, on mag- 
netic tape, or on a DASD. The entire file 
is processed, beginning with the first rec- 
ord and continuing until the file is 
depleted. 

The end-of-file condition is determined 
as the last card of the file is read. In 
the case of DASD, the extent of the file 
is obtained from the operating system. 

The records may be f ixed-or variable- 
length and blocked or unblocked. 



INDEXED-SEQUENTIAL ORGANIZATION 

An indexed-sequential file can only be on 
a direct-access-storage device (such as 
disk) . 

RPG processes indexed-sequential files 
in three ways : 

1. Sequentially, by processing the entire 
file. 

2. Sequentially, by processing a segment 
of the file between the given limits. 

3. Randomly, by processing records on the 
file in a random order. 

The records may be fixed-length and 
blocked or unblocked. 



Processing the Entire File Sequentially 

The generated program obtains the limits of 
the file from the operating system, and 
the entire file is processed sequentially 
by record key in ascending or descending 
record-key sequence. 



Processing Part of the File Sequentially 

If only a part of the entire file is to be 
processed, the generated program must be 
supplied with both the low and high keys 
that describe which part of the file will 
be processed. 

An auxiliary file is used to supply 
these limits. This file is called a Record 
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Address File (RAF) . The RAF does not con- 
tain data to be processed. It contains the 
record keys (in this case the limits) of 
the data records which will be processed. 

The object module obtains the limits 
to be processed from a record contained in 
a RAF and then processes all the data be- 
tween those limits. The object module 
then reads another record in the RAF, and 
the procedure is continued until the RAF 
is depleted. 

Processing the File Randomly 

An indexed-sequential file may be processed 
randomly by supplying an RAF or a chaining 
file. Instead of supplying the limits (as 
in the case of sequential processing) , the 
RAF or chaining file contains the record 
key of each record of the file to be proc- 
essed» 



DIRECT ORGANIZATION (RANDOM) 

A file with direct organization must reside 
on a direct access storage device. A 



direct file is always processed randomly. 
Records are retrieved from this file by 
using a relative track address and either a 
record key or record identification. The 
records must be fixed-length and unblocked. 

A direct file is processed randomly by 
supplying a record-address file or a chain- 
ing file. 

The RPG program or an external sub- 
routine must provide the necessary steps 
to convert the data fields contained in 
the RAF or chaining file to the relative 
track address and record key or record ID 
to be retrieved. 

The format of the relative track address 
created by the subroutine must be in the 
form TTR. (Refer to IBM System/360 , Oper- 
ating System, Supervisor and Data Manage- 
ment Services. ) 

The next two major sections of the 
manual are Processing Single Input Files 
and Processing Multiple Input Files. These 
sections describe disk storage processing 
in the RPG program. In these sections, 
processing methods are described in detail 
including specific examples of methods and 
of coding specifications. 



Disk Storage Concepts 119 



PROCESSING SINGLE INPUT FILES 



In this section, the methods of retrieving 
records from one input file are discussed. 
Three types of file organization can be 
processed: Sequential, Indexed-Sequential, 
and Direct. 

If there is only one input file, it must 
be designated as the primary file by enter- 
ing a P in column 16 of the File Descrip- 
tion sheet. 



SEQUENTIAL FILE 

Figure 110 shows the coding on the File 
Description sheet necessary to process a 
sequential file. The name of the file is 
MASTERIN. The records are fixed-length, 
and the block length is 200. Each record 
is 200 characters long. A blank in column 
32 indicates that the file is a sequential 
file. 



PROCESSING AN INDEXED-SEQUENTIAL FILE 
BETWEEN LIMITS 

If only a part of an indexed-sequential 
file is to be processed, the object pro- 
gram must be supplied with both the low 
and high keys that describe which part of 
the file will be processed. Mode of Proc- 
essing (column 28) of the File Description 
sheet must contain L. 

The object program obtains the limits 
to be processed from a record contained in 



an RAF and then processes all data between 
those limits. The object program then reads 
another record in the RAF, and the proce- 
dure is continued until the RAF is depleted. 

In Figure 111, the first card of the 
record-address file shows that the object 
module is to process from Bell to Dennis. 
The second card shows that the program 
is to process from Dixon to Howard. The 
third card shows that the third part of 
the file to be processed ranges from Keith 
to Paige. Thus, the data records that the 
program processes are contained with these 
limits. In this example, the record keys 
are customer names. 

The record-address file in this example 
is nothing more than a file which supplies 
limits of the file to be processed. Rules 
for forming record-address files are con- 
tained in Creating Record Address Files at 
the end of this section of the manual. 

Figure 112 illustrates the coding re- 
quired on the File Description and File Ex- 
tension sheets when limits of an indexed- 
sequential file are to be processed. In 
Figure 112, on the File Description sheet 
DISKIN is the name of the input file. The 
records are fixed-length, and the block 
length is 150. Each record is 150 charac- 
ters long. Limits of the file are to be 
processed as indicated by the L in column 
28. The K in column 31 indicates that the 
record key will be used to obtain the rec- 
ords from the file. 

The record-address file (RAFLIMIT) is 
also an input file. The R in column 16 in- 
dicates that it is an RAF. It is 



IBM 



INTEHNATIONAL (Ul 

REPORT PROGRAM GENERATC 

IBMI 



Progrt 
Progrt 



Lin. 

3 4 5 


& 

E 

j> 


Filename 

7 8 9 10 11 12 13 14 




Fil 












Modt of Proc.illng \ 




28 




3 

o 

IS 




: ilo Dtiignalion 




Addwu Flold \ 


16 




End of Fill 


29 30 




t«£ord Addrtn Typo 1 


E 




S.qn.nc. 


31 


Typo of Fil. \ 


< 

IB 










rilt Format 


a 

32 


Ovtrftow Indicator 


> 
19 


Hock 
20 21 22 23 


24 25 26 11 






33 34 


K.y Fi.ld 
Storting 

33 36 37 38 


1 $ 


t 


MASTERIN 


J 


V 






F 


200 


200 














2 


f 























































Figure 110. Coding a Sequential File 
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Figure 112. Processing a Part of the Indexed-Sequential File 



fixed- length; it has a block length of 80, 
and each record is 80 characters in length. 
The length of each record-address field is 
6 characters. 

Because the File Extension sheet is re- 
quired to relate the RAF to the DASD 
file, an E is entered in Extension Code 
(column 39) . On the File Extension sheet 
the coding illustrates that RAFLIMIT is to 
provide the addresses for DISKIN. 



RANDOM PROCESSING OF AN INDEXED-SEQUENTIAL 
FILE 



An indexed-sequential file may be processed 
randomly by supplying an RAF. Instead of 
supplying the limits (as in the case of 
sequential processing) , the RAF contains 
the record key of each record of the file 
to be processed. 
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Figures 113 and 114 illustrate the speci- 
fications for this type of organization. In 
this example, the first record from the 
record- address file is read. The first RAF 
entry ADAMS is used to obtain the data rec- 
ord whose record key is ADAMS. The record 
is retrieved and is processed. The next 
entry, CABOT, is then used to find the next 
data record. 

PROCESSING FILES WITH DIRECT ORGANIZATION 

A file with direct organization must reside 
on a direct access storage device. Records 
are retrieved from this file by using rela- 
tive track address and record key or rec- 
ord identification. 
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Figure 113. Randomly Processing an Indexed- 
Sequential File 
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Figure 114. Processing an Indexed-Sequential File Randomly, Using an RAF 
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Direct organization is specified by a D 
in column 32 of the File Description sheet. 
The mode of processing is random, and an R 
in column 28 indicates random processing. 
If the record key is used to obtain the 
records, enter a K in column 31. If a rec- 
ord ID is used, enter an I in column 31. 

When an RPG program processes an input 
file of this organization, an RAF must be 
supplied. The necessary steps must be sup- 
plied which convert the data fields con- 
tained in the RAF to the relative track ad- 
dress and the record key or record ID to be 
retrieved. The conversion routine depends, 
of course, on the way a particular data 
field can be converted to the track address 
of the record. 

The conversion routine is unique, accord- 
ing to the needs of a particular installa- 
tion. It may be nothing more than supplying 
the information without any calculations. 
To retrieve records from the file,, some 
data fields must be converted to produce 
the relative track address of the record. 



Supplying Data to be Converted 

One entry in the RAF is supplied for each 
record to be retrieved. The data supplied 
by the RAF should be such that the relative 
track address and the record key or record 
identification can be derived. Because the 
RAF is not described on the input specifica- 
tions, the entries in the RAF will be made 
available consecutively in a field called 
CONTD. This field is always alphameric, 
and it has the record length as specified 
in columns 29-30 of the File Description 
Specifications sheet. 

NOTE: The field CONTD is always predefined 
by RPG as an RPG Label (RLABL) 



Associating a Particular Conversion 
Routine with RAF 

The File Extension specifications describ- 
ing the RAF contain a field name in col- 
umns 27-32. This name is used as Factor 1 
on the calculation specifications with the 
first specification of the conversion 
routine. 



2. The conversion routine can be written 
as an independent routine that must be 
combined with the generated object 
program. 

The first specification of the conversion 
routine defines the type of conversion by 
means of the operation codes RPGCV or EXTCV. 
If the conversion routine is coded on the 
Calculation Specifications sheet, RPGCV is 
specified. If the conversion routine is 
external to the RPG language, EXTCV is 
specified. 



External Conversion Routine 

If the conversion routine is external to 
the RPG language, Factor 2 must contain the 
name (or label) of the user-supplied rou- 
tine. This external conversion routine 
must follow the same conventions which are 
specified for the EXIT routine. See Use of 
Registers in this publication. 

The Result Field must contain the name 
(or label) of the field, in the subroutine, 
which will contain the track address of the 
record to be retrieved. This is the result 
of the conversion. 



Defining the Key or ID Field 

Regardless of whether an RPG or an external 
conversion routine is specified, if record 
key retrieval is used (rather than record 
ID) the next calculation specification entry 
must define the field that will contain the 
record key. 

The operation code is KEYCV, (a K in col- 
umn 31 of the File Description sheet) . The 
Result Field must contain the name (or label) 
of the field which will contain the actual 
record key used to locate the record. 

If record ID retrieval is used, an opera- 
tion code entry is not required. However, 
the File Description Sheet must contain an 
I in column 31. 

In either key or ID retrieval, the re- 
sult field of EXTCV or RPGCV must be a rela- 
tive track address in the form TTR. 



Conversion Operation Codes 



Methods for Specifying a Conversion Routine 

Two methods of specifying a conversion rou- 
tine to RPG are available: 

1. The conversion routine is written on 
the Calculation Specifications sheet, 
or 



The operation codes which follow are used 
in conjunction with conversion routines. 
If there are several conversion routines 
in the program, these codes are repeated. 

RPGCV. This operation code indicates 
that the conversion routine is coded on 
the RPG calculation sheet. 
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ERPGC. This entry terminates the RPG 
conversion step entries that have been 
coded on the calculation sheet. 

EXTCV. This entry indicates that the 
conversion routine is supplied by the 
user in a separate subroutine which is 
external to the RPG language. 

KEYCV. This entry declares that the 
field specified in Result Field will 
contain the record key to be used with 
the relative track address. This entry 
must follow the RPGCV or EXTCV entry. 

In the example shown in Figures 115 and 
116 the data supplied in the RAF is 
both the record key and the data to be con- 
verted. The conversion routine shows how 
this field is then separated into two ele- 
ments. 

The field CONTD contains the 14-character 
field from the RAF. The first 9 characters 
contain the customer name which is used as 
the key. The remaining 5 characters con- 
tain a code for calculating the track ad- 
dress of the customer's record. Line 04 of 
the Calculation Specifications sheet (Fig- 
ure 116) moves the first part of CONTD to 
the key field (KEYFLD) and line 05 moves 
the remaining part to the work field 
(WORKFD) . The alternating table on TABFIL 
is used to convert this 5-character code 
to the 3-character relative track address 
that is moved to the field TRKADR. 

Figure 117 shows how the calculation 
specifications would be coded if the con- 
version routine were external to the RPG 
language. 

CREATING RECORD ADDRESS FILES (RAF) 

General Information 

A record-address file is one of the ways 
by which the necessary information to re- 
trieve records from nonsequential files is 
supplied to the RPG program. Two types of 
record-address files may be used: 

1. For random processing of a file with 
indexed-sequential organization or of 
a file with direct organization. 

2. For sequential processing between 
limits, of a file with indexed- 
sequential organization. 



Record Key 

DatoField RAF(RAFINP) 



Data File (MASTCUS) 



Jones 04321 



Allen 06198 



James 09321 



First Second Third 

Processed _ Processed Processed 




' Conversion of Data Field 



Figure 115. Conversion of a Record Address 
File 



Only one RAF may be specified for an 
RPG program. An RAF is processed sequen- 
tially, and it must be on a file with se- 
quential organization. An RAF is described 
on the File Description sheet and the File 
Extension sheet, but it is not described on 
the Input Specifications sheet. 



Random Processing of Indexed-Seguential or 
Direct Organization 



These rules must be followed when creating 
an RAF for random processing: 



For indexed-sequential organization, 
the record-address field contains the 
record key. 

For a direct organization, each 
entry in the RAF must consist of a 
field to be converted to the track ad- 
dress and to either the record key or 
the record ID . 

The record addresses must begin in 
position 1 of the record and continue 
without blank spaces between the rec- 
ord-address fields. 

The length of the field must be the 
same for all records. The numeric 
fields must always be unpacked. 
The number of field entries in a rec- 
ord may vary. A blank field, which is 
equal in length to the record-address 
field, will cause the RPG program to 
read the next record in the RAF. 
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Figure 116. Specifying Conversion on the Calculation Sheet 
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Figure 117. Specifying a Conversion Routine which is not on the Calculation Sheet 



Processing Limits of an Indexed- 
Sequential Organization 



When an RAF is used to indicate what limits 
of a file (with Indexed-Sequential Organi- 
zation) are to be processed, the following 
rules must be observed: 

1. Only two record-address entries can 
be in each record. 



The record-address entry must begin in 
position 1 of the record. The first 
entry indicates the low limit of the 
file to be processed. The second entry 
indicates the upper limit of the file. 
The program processes from the lower 
limit to the upper limit. 
The second entry of the record must 
begin in the position immediately 
following the first entry. No blank 
spaces are allowed. 
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PROCESSING MULTIPLE INPUT FILES 



Multiple input files may be processed using 
either the matching record technique or 
chaining. These two concepts are discussed 
here. 



SEQUENTIAL PROCESSING OF MULTIPLE 
INPUT FILES (MATCHING) 

The Matching Fields entry, (entered in col- 
umn s — 5T^F2on~Tne — Tnput Specifications 
sheet) determines which records of a second- 
ary file are to be processed. Both files 
are processed sequentially. The following 
rules apply to the \Matching Fields entry. 

1. There can be three matching field 
specification entries (Ml, M2, and M3) 
per record. 

2. The locations of the matching fields 
within a record type of a file must re- 
main fixed. 

3. When there is more than one record type 
in an input file, the locations of the 
matching fields in the various types 
need not be the same. 



4. Not all the record types in a file must 
have a matching field. If an entire 
file is specified without matching 
fields, it will be read completely and 
processed first. 

5. If Ml, M2 and M3 are specified in the 
primary file, Ml, M2, and M3 must be 
specified in the secondary file. In- 
correct results will be obtained if the 
same number of matching fields is not 
specified. For example, Figure 118 
shows three record types. Record type 
AA has two matching fields, and record 
type BB has two matching fields. If 
record type BB has three fields, in- 
correct results would be obtained. 
Record type CC has no matching fields 
(refer to rule 4) . 

The following example may be used to 
illustrate how the Matching Field s specifi- 
cation is used in conjunction with primary 
and secondary files. Assume that two files 
(in sequential organization) are used as 
shown in Figure 119. The primary file has 
records which contain heading and rate 
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Figure 118. Matching Fields Entries 
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Figure 119. Two Input Files with Matching Records 



information. The secondary file contains 
detailed information which supplements the 
primary file. 

The input specifications required to 
match these records are shown in Figure 120. 

The specifications Ml and M2 cause each 
detail record to be compared against the 
primary file's record that has just been 
read., The fields DIVSON and DETDIV in both 
files are identified by M2; the field de- 
partment (DEPT and DETDEP) in both files 
is identified by Ml. 



Matching Record Indicator 

The matching field entries of Ml and M2 
(and also M3) have an associated internal 
indicator MR (Matching Record) . This in- 
dicator, which is similar to a resulting 
indicator, is used to control functions 
specified on the Calculation and Output- 
Format Specifications sheets. 

The MR Indicator is turned on when a 
record of a secondary file matches a record 
of the primary file. It remains on during 
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Figure 120. Specifying Matching Fields 



the complete processing of the record, and 
it is turned off when all total calcula- 
tions and printing that may be caused for 
this record are completed. 

If, as in Figure 119, a detail record 
does not have a matching primary record 
(card 035) or if a master record does not 
have a matching detail record (card 025) , 
the indicator MR is not turned on. 

This indicator can be used on the cal- 
culation specifications to prevent calcu- 
lations upon a detail record contained in 
the secondary file. It could also be used 
on the output specifications to select 
unmatched detail cards. 

The Matching Fields specification can 
be used even though not all of the record- 
types in the file contain the fields used 
for matching. When these record types are 
specified on the input sheet, the Matching 
Fields specification is left blank. This 
indicates to the program that these rec- 
ord types do not need to be checked for 
a matching field. These records are pro- 
cessed immedately after any total oper- 
ations whose conditions are satisified. 



Matching Fields Specified as Numeric or 
Alphameric 



Numeric 

A matching record field specified as numeric 
by an entry in Decimal Positions but in un- 
packed format (blank in Packed Field ) is 
packed before the comparison of matching 
fields is made. The sign of the packed 
field is plus with a C regardless of the 
sign of the input field. 

Alphameric 

If a field used as a matching record field 
has been specified as an alphameric field 
(blank decimal positions) , no zone-bits are 
removed from the record before the compari- 
son is made. 

Sequence of Assigning Matching Fields 

One, two, or three fields can be matched in 
one operation. However, if more than one 
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field is matched, the designations of M3, 
M2, and Ml must be assigned in the same 
sequence in which the fields are to be 
arranged for matching. M3 is assigned to 
the highest-order field, M2 to the next 
lower-order field, and Ml to the lowest- 
order field. 

For example, in Figure 120, only two 
fields are matched. Ml is assigned to 
DEPT which is the low-order matching field, 
and M2 is assigned DIVSON, which is the 
high-order matching field. 

The position in the record of the fields 
to be matched does not have to be the same 
in both files. For example, in Figure 120, 
the field DETDIV is located in positions 
1-4 of the detail records, and the field 
DIVSON is located in positions 28-31 of the 
rate-header records. 



Order of Processing Matched Records 

Figure 121 illustrates a primary and a 
secondary file. The records in the two 
files will be processed according to four 
possibilities : 

1. Whenever there is a matching primary 
record. 

2. Whenever there is a matching secondary 
record. 

3. Whenever there is an unmatched primary 
record. 

4. Whenever there is an unmatched second- 
ary record. 



1. A matching primary record will be 
coded 01 and MR. 

2. A matching secondary record will be 
coded 02 and MR. 

3. An unmatched primary record will be 
coded 01 and NMR. 

4. An unmatched secondary record will be 
coded 02 and NMR. 

The order in which the primary file and 
the secondary file are processed is shown 
below. Sample Program Two uses the match- 
ing field specifications. 
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If more than one secondary file is speci- 
fied, the secondary files will be processed 
in the sequence they are specified in the 
Input Specifications sheet. 



In Figure 121, indicator 01 is turned on 
whenever there is a primary record. Indi- 
cator 02 is turned on whenever there is a 
secondary record. Thus, 



NOTE: Input Specifications for each file 
must be in the same sequence as specified 
on the File Description Specifications 
sheet. 
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Figure 121. Order of Processing Matched Records 
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RANDOMLY PROCESSING MULTIPLE INPUT FILES 
(CHAINING) 

To understand chaining, assume that an in- 
put file, as shown in Figure 122, contains 
information about transactions made with 
several customers. The card file contains 
the customer's number, but it does not con- 
tain his name, address, or balance. An- 
other file called MASTCUS (Master Customer 
File) contains information about each cus- 
tomer. The RPG object program has the 
ability to use the second file, when pre- 
paring a customer report. 

The master customer file has indexed- 
sequential organization, and it is to be 
processed randomly. The record key in each 
disk record contains the customer's numbers. 
The field in the transaction file, which 
contains the customer's number, can be used 
to chain the files together. The object 
program takes the customer's number and lo- 
cates the record with the same record key. 
The additional information, such as the 
customer's name, address, balance, etc., is 
associated with each record key, and it is 
immediately available for processing. 

The field which links or chains a record 
of one file to a record in another file is 



called a chaining field. The transaction 
file (CARDIN) is called the chaining file. 
The master customer file (MASTCUS) is the 
chained file because it is linked to the 
transaction file. 

Up to nine chaining fields may be speci- 
fied. The chaining fields can be located 
in one or more files. The chaining fields 
are designated by entering CI through C9 in 
columns 61-62 of the Input Specifications 
sheet. 

NOTE: There is no specific relationship be- 
tween levels C1-C9 other than specifying 
the nine possibilities for chaining fields. 



Chaining Example 

Figure 123 illustrates coding used for 
chaining the transaction file CARDIN to 
the customer file MASTCUS. 

File Description Specifications 

On the File Description sheet, the card 
file is considered the primary file. When 
CARDIN is depleted, the program goes to 
the end-of-job routine (E in column 17) . 
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Figure 122. Using Chaining to Process an Indexed-Sequential File 
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File Extension Specifications 

The File Extension sheet contains the rec- 
ord sequence of the CARDIN file and the 
number of the chaining field. 



Input Specifications 

On the Input Specifications sheet, the two 
files are defined. CUSTNO is the field 
which chains the files. 



Calculation Specifications 

When chaining is used, the following situa- 
tion may occur. A chaining record (for 
example, JONES) has no corresponding chained 
record. (JONES is not present in the chain- 
ed file.) Such a situation may require 
special action by the program. 

Indicators 01 and 02 are both on when a 
chaining record has a corresponding chain- 
ed record. In this case 01 represents the 
chaining record, and 02 represents the 
chained record. When 01 and 02 are both 
on, AMPTD is subtracted from BALANC. How- 
ever, if there is no corresponding record 
in the chained file (01N02) , halt indicator 
HI is turned on. Thus, the possibility of 
not having a corresponding record in the 
chained file is accounted for, and process- 
ing will terminate when this situation 
occurs. 

NOTE: This example illustrates the only 
time that two resulting indicators (rep- 
resenting two different record types) can 
be on at the same time. 



Additional Uses of Chaining 

Figures 124 and 125 show two additional 
uses of chaining. In Figure 124, the card 
file contains two fields which are both 
used as chaining fields (salesman number 
and customer number) . The field containing 
salesman number is chained to a file that 
is organized by salesman number. The field 
containing the customer's number is used to 
chain to the customer file. 

In Figure 125, the card file is chained 
to the customer file. Within each customer 
record is a field which may be used to 
chain to another file. In this case, each 
record in the customer file contains an 
account number. The account number is used 
to chain to the account file. 



Chaining /" 

File f 




Salesman 
File 



Figure 124. Chaining to Two Files 




Account 
File 



Figure 125. Using a Chained File as a 
Chaining File 



Split Chaining Fields 

Several fields that are not in adjoining 
positions in an input record can be speci- 
fied as one chaining field. The fields 
are specified with the same chaining code 
(CI for example) on the Input Specifica- 
tions sheet, and the fields are then used 
as one chaining field. The fields are 
placed in the same sequence as they are 
defined on the Input Specifications sheet. 
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The first field defined on the input sheet 
is placed in the leftmost position, and the 
last field is placed in the rightmost 
position. 

CONVERSION OF CHAINING FIELDS FOR DIRECT 
FILE ORGANIZATION 

The data to be converted will be located in 
the fields designated as the chaining fields 
(Figure 126) . The data field must be such 
that the record key or record ID can be de- 
rived from the conversion. The rules for 
conversion of a chaining field are the same 
as those for an RAF. 

Figure 127 illustrates the conversion 
routine that converts the data contained in 
a chaining field (Figure 126) to the rela- 
tive track address and record key of the 
record. 

In this example, the conversion routine 
is coded on the Calculation Specifications 
sheet. On the File Description sheet, the 
two input files are described. TRANSREC 
is the primary file. MASTCUS is the DASD 
file that has direct organization and is 



TRANSREC 



MASTCUS 




Conversion Routine 



Figure 126. 



Specifying a Random Disk Ad- 
dress by Converting an Input 
Record (Chaining File) 



processed randomly. Since in direct orga- 
nization the key is separate from the data 
record, no entry is made in the Key Field 
Starting Location (columns 35-38) . The 
conversion routine supplies the track ad- 
dress and the record key. 

On the File Extension sheet, the record 
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Figure 127. Conversion of a Chaining Field (Part 1 of 2) 
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Figure 127. Conversion of a Chaining Field (Part 2 of 2) 



sequence of the chaining file (AA in col- 
umn 7-8) is specified. The number of the 
chaining field is Cl. Both AA and Cl are 
taken from the Input Specifications sheet. 
TRANSREC relates to MASTCUS, so these file 
names are entered in columns 11-18 and 
19-26, respectively. The entry CONVER in 
columns 27-32 indicates that this label, 
when entered in Factor 1 of the Calculation 
Specifications sheet, specifies the con- 
version routine. 

Two fields of the primary file, NAME and 
CUSNUM, are designated on the Input Speci- 



fications sheet as the chaining fields to 
be converted. 

The conversion routine is coded on the 
Calculation Specifications sheet. The re- 
sult field of the RPGCV entry (line 010) 
defines the field which contains the rela- 
tive track address. The customer number, 
CUSNUM, is converted to the relative track 
address (lines 040-080). The entry KEYCV 
defines the name of the field that contains 
the record key. In this example, the rec- 
ord key contains the customer's name which 
is obtained directly from the input data. 
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SUMMARY OF MULTIPLE FILE PROCESSING 



RPG processes multiple files two ways: 

1. Sequentially — by using the matching 
record technique 

2. Randomly — by using the chaining 
technique 

Figure 128 shows the processing possi- 
bilities for files which have Sequential, 
Indexed-Sequential, or Direct Organization. 

The numbers 1, 2, and 3 refer to the 
major subjects listed below. The letters 
A, B, and C refer to the subgroups. 



Fi les with Sequential Organization 

1. A file with sequential organization is 
processed sequentially and controls the 
processing of records in: 

A. Another Sequential Organization. 
Both files are processed sequen- 
tially, using matching records to 
govern processing. 

B. An Indexed-Sequential Organization . 
If the file is processed sequen- 
tially, the matching-record tech- 
nique is used to control processing 
of the indexed-sequential file. 

If the file is processed randomly, 
chaining fields in the sequential 
file specify which records in the 
indexed-sequential file are to be 
processed. 

C. A Direct Organization . A direct 
organization is processed ran- 
domly, under control of the sequen- 
tial file. The sequential file 
contains chaining fields which are 
converted to the relative track ad- 
dresses of the records on the direct 
file. 



Files with Indexed-Sequential Organization 

2. A file with Indexed-Sequential Organi- 
zation may be processed sequentially 
or randomly, and it controls processing 
of records in: 
A. A Sequential Organization . The 

records in both files will be proc- 
essed sequentially, using matching 
records to control processing. 



B. Another Indexed-Sequential Organi - 
zation. If the file is processed 
sequentially, matching records are 
used to control processing. (Both 
files are processed sequentially.) 

If the file is processed ran- 
domly, chaining fields are used to 
control processing. 

C. A Direct Organization . Chaining 
fields in the indexed file are con- 
verted to supply the record loca- 
tions in the direct file which is 
processed. The direct file is 
processed randomly. 



Files with Direct Organization 

3. A file with direct organization is 
processed randomly and controls 
processing of records in: 

B. An Indexed-Sequential Organiza- 
tion . The indexed-file is proc- 
essed randomly, and chaining fields 
in the direct file control process- 
ing of the indexed file. 

In both cases, the direct orga- 
nization is processed randomly. 

C. Another Direct Organization . 
Chaining fields contained within 
the direct file are converted to 
provide the location of the rec- 
ords in another direct organiza- 
tion. The records in both files 
are processed randomly. 



Updating a DASD File 

An RPG program may perform update proc- 
essing of a DASD file. The file may be of 
sequential, index-sequential, or direct 
organization. The fields of records con- 
tained in the file may be changed, however, 
the size of the records may not be changed. 
It is not possible to add new records to a 
DASD file or to delete old records using 
RPG. Only records existing in the file 
may be processed. When an update file 
(U in Column 15 on the File Description 
sheet) is processed, only the fields to 
be updated must be entered on the Output- 
Format Specifications sheet. Although 
the entire record is to be retained, only 
the affected fields are entered on the out- 
put sheet. 
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fi 



From "--..^^ 


Sequential Organization 


Indexed-Sequential Organization 
(DASD) 


Direct Organization 
(DASD) 


Sequential 
Organization 


Sequential Processing 
(Matching) 


Sequential Processing 

(Matching) 
or 
Random Processing 

(Chaining) 


Random Processing 
(Chaining) 


Indexed- 
Sequential 
Organization * 


D 

Sequential Processing 
(Matching) 


Sequential Processing n 

(Matching) 
or 
Random Processing 

(Chaining) 


Random Processing 
(Chaining) 


Direct (DASD) 
Organization + 


— 


Random Processing 
(Chaining) 


Random Processing 
(Chaining) 



* A Record address File may be used to supply the limits (in the case of sequential processing) or the 

actual Record Keys (in the case of random processing), 
n The From File must be specified as sequential. 
+ A Record Address File is converted to supply the record locations on the DASD. 

Figure 128. Processing Multiple Input Files 



Processing Multiple Input Files 137 



RPG JOB PROCESSING 



The IBM System/360 Operating System (the 
operating system) consists of a control 
program and processing programs. The con- 
trol program supervises execution of all 
processing programs, such as the RPG com- 
piler, and all problem programs, such as 
an RPG program. Therefore, to execute an 
RPG program the programmer must first com- 
municate with the operating system. The 
medium of communication between the pro- 
grammer and the operating system is the job 
control language. 

Job control language statements define 
two units of work to the operating system: 
the job and the job step. A job consists 
of executing one or more job steps. For 
example, three job steps are involved to 
compile, link edit and execute an RPG 
program. 

1. Translate the source program into an 
object module by executing the RPG 
compiler component of the operating 
system. 

2. Process the object module to produce 
a load module by executing the link- 
age editor component of the operating 
system. 

3. Execute the compiled and link edited 
load module. 



JOB CONTROL LANGUAGE 



COMPILER PROCESSING 

The names for DD statements (ddnames) re- 
late I/O statements in the compiler with 
data sets used by the compiler. These 
ddnames must be used for the compiler. 
When the system is generated, names for 
I/O device classes are also established 
and must be used by the programmer. 



Compiler Name 

The program name for the RPG compiler is 
IESRPG. If the compiler is to be executed 
without using the supplied cataloged pro- 
cedures in a job step (see Using Cataloged 
Procedures ) , the EXEC statement parameter, 
PGM = IESRPG, must be used. 



Compiler ddnames 

The compiler can use 7 data sets. To es- 
tablish communication between the compiler 
and the programmer, each data set is assign- 
ed a specific ddname. Each data set has a 
specific function and device requirement. 
Table 5 lists the ddnames, functions, and 
device requirements for the data sets . 

Table 5. Compiler ddnames 



The RPG programmer uses the job control 
statements shown in Table 4 to compile, 
link edit, and execute programs. 

These statements are discussed in this 
section as they are used to specify RPG job 
processing. A detailed explanation of each 
statement is given in IBM System/360, Opera- 
ting System, Job Control Language. 



Table 4. Job Control Statements 



Statement 


Function 


JOB 


Indicates the beginning of a new job and describes that 
job 


EXEC 


Indicates a job step and describes that job step; indi- 
cates the cataloged procedure or load module to be 
executed 


DD 


Describes data sets, and controls device and volume 
assignment 


delimiter 


Separates data sets in the input stream from control 
statements; it appears after each data set in the input 
stream 



ddname 


FUNCTION 


DEVICE REQUIREMENTS 


SYS IN 


reading the 
source pro- 
gram 


• card reader 

• intermediate storage 


SYSPRINT 


writing the 
storage map, 
listing, and 
messages 


• printer 

• intermediate storage 


SYSPUNCH 


output data 
set for the ob- 
ject module 
deck 


• card punch 

• intermediate storage 


SYSUT1 


work data set 
needed by the 
compiler during 
compilation 


• direct-access 

• magnetic tape 


SYSUT2 


work data set 
needed by the 
compiler dur- 
ing compilation 


• direct-access 

• magnetic tape 


SYSUT3 


work data set 
needed by the 
compiler during 
compilation 


• direct-access 

• magnetic tape 


SYSGO 


output data set 
for the object 
module used as 
input to the 
linkage editor 


• direct-access 

• magnetic tape 
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To compile an RPG source program, five 
of these data sets are necessary: SYSIN, 
SYSPRINT, SYSUT1, SYSUT2 and SYSUT3, along 
with the direct-access volume (s) that con- 
tains the operating system. With these 
five data sets, only a listing is generated 
by the compiler. If an object module is 
to be punched, a SYSPUNCH DD statement must 
be supplied. If an object module is to be 
passed to the linkage editor, a SYSGO DD 
statement must be supplied. 

For the DD statement SYSIN or SYSPRINT 
or SYSPUNCH an intermediate storage device 
may be specified instead of the card read- 
er or printer or card punch. The inter- 
mediate storage device can be magnetic tape 
or a direct access device. 

If an intermediate device is specified 
for SYSIN, the compiler assumes that the 
source module deck was placed on inter- 
mediate storage by a previous job or job 
step. If an intermediate device is speci- 
fied for SYSPRINT, the listing, and error/ 
warning messages are written on that de- 
vice; a new job or job step can print the 
contents of the data set. When the SYS- 
PRINT data set is written on an intermedi- 
ate storage device, carriage control char- 
acters are placed in the records. 

NOTE: SYSUT1 and SYSUT2 must not be 
assigned to a 2321 data cell. When using 
split cylinders, SYSUT1 and SYSUT2 must be 
assigned an equal number of track per 
cylinder. 



Compiler Device Classes 

Names for input/output device classes used 
for compilation are also specified by the 
operating system when the system is gener- 
ated. The class names, functions, and 
types of devices are shown in Table 6. 

The data sets used by the compiler must 
be assigned to the device classes listed 
in Table 7. 



Table 6. Device Class Names 



Table 7. correspondence Between Compiler 
ddnames and Device Classes 



CLASS NAME 


CLASS FUNCTIONS 


DEVICE TYPE 


SYSSQ 


writing, reading, backspacing 
(sequential) 


• magnetic tape 

• direct-access 


SYSDA 


writing, reading, backspacing, 
updating records in place 
(direct) 


• direct-access 


SYSCP 


punching cards 


• card punch 


A 


SYSOUT output 


• printer 

• magnetic tope 



ddname 


Possible Device Classes 


SYSIN 


SYSSQ, or the input stream device (specified 
by DD * or DD DATA) 


SYSPRINT 


A, SYSSQ 


SYSPUNCH 


SYSCP 


SYSUT1 


SYSSQ, SYSDA 


SYSUT2 


SYSSQ, SYSDA 


SYSUT3 


SYSSQ, SYSDA 


SYSGO 


SYSSQ, SYSDA 



Compiler Options 

Options are passed to the compiler through 
the PARM parameter in the EXEC statement. 

(DECK ( (,LOAD j , LIST (LSEQN / 
PARM =j NODECK f j ,NOLOAD[ , NOLIST j |, NOSEQN [ 

The programmer specifies the options 
which are defined as, 

DECK The object module is placed on the 
device specified in the SYSPUNCH DD 
statement, (usually the card punch) . 

LOAD The object module is placed on the 
device specified in the SYSGO DD 
statement, (usually intermediate 
storage) . 

LIST An output listing is written on the 
device specified in the SYSPRINT DD 
statement, (see Compiler Output) . 

SEQN The source deck is checked to ensure 
that the combined page/line field 
value in each specification is greater 
than the combined page/line field 
value of the previous specification. 

The prefix NO is used with any of these 
options to specify that the option is not 
wanted. If any entry for any of the three 
options is omitted from the PARM parameter, 
the corresponding underlined entry (NODECK, 
LOAD, LIST, or NOSEQN) is assumed for that 
option. If contradictory options are entered 
(e.g., LIST, NOLIST) the entry without the 
underline (DECK, NOLOAD, NOLIST, or SEQN) is 
used for that option. 

The DECK option specifies that the com- 
piler output (i.e., the object module) is 
written on the data set specified by the 
SYSPUNCH DD statement. NODECK specifies 
that no object module is written. A des- 
cription of the deck is given in Compiler 
Output . 
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The LOAD option indicates that the 
object module is written on the data set 
specified by the SYSGO DD statement. this 
option must be used if a cataloged proce- 
dure to compile, link edit, and execute is 
used. 

The NOLOAD option indicates that the 
object module is not written on a sequen- 
tial data set. This option must not be 
used if a cataloged procedure to compile, 
link edit, and execute is used. If NOLOAD 
and DECK are specified, the resulting ob- 
ject deck may be used as input to the link- 
age editor. 

If the LOAD and DECK options are speci- 
fied, the object module is written on the 
two data sets, indicated by the SYSGO and 
SYSPUNCH DD statements. 

The cataloged procedures assume the 
options of NODECK, LOAD, LIST, NOSEQN . How- 
ever, the programmer can override any or all 
of the assumed options as described in Over- 
riding Cataloged Procedures. 



Compiler Output 

The RPG compiler can generate a listing of 
the source specifications, diagnostic mes- 
sages and a memory map showing the names 
and addresses of object program routines. 
The compiler can also produce an object 
module card deck (Figure 129) . 

The output listing (see Sample Program 
One ) provides: 

1. Listing of each specification with re- 
lated statement number and error notes. 

2. Resulting Indicator Table showing: 

a. Names of all RPG processor and 
user defined resulting indicators 

b. Address (6 places) of each de- 
fined resulting indicator 

3. Field Name Table containing: 

a. Names of all fields 

b. Address (6 places) of each field. 
ENTRY or EXTERN type field names 
are denoted by ENTRY or EXTRN 

4. Literal Table containing: 

a. All literals and edit words 

b. Address (6 places) of each literal 
or edit word 



END Card 
RLD Cards 



V 



ESD & TXT Cards 



y 



ESD Cards 



y 



Section Definition ESD 



Figure 129. RPG Output Object Module 
Card Deck 



Diagnostic listing of erroneous entries 
showing : 

a. Statement number 

b. Name of the erroneous field or 
resulting indicator 

c. Appropriate error note 
Further specification diagnostics 

a. Statement number 

b. Appropriate error note 
Diagnostic messages. Refer to 
Appendix G. 



6. 



7. 
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Memory Map listing names and addresses 
of RPG object program routines. 
The length (in hexadecimal) of the com- 
piled program not including the IOCS 
modules or any user subroutines. 
END OF COMPILATION message. 



Compiler Return Codes 

Table 8 shows the return codes issued by 
the RPG compiler for use with the COND= 
parameter of JOB or EXEC statements. 



LINKAGE EDITOR PROCESSING 

The linkage editor processes RPG object 
modules, resolves any references to sub- 
programs, and constructs a load module. 
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Table 8. Compiler Return Codes 



Return 
Code 


Explanation 





no errors detected 


4 


minor errors detected; successful program execution is 
probable 


8 


errors detected; unsuccessful program execution is possible 


12 


serious errors detected; unsuccessful program execution is 
probable 


16 


critical errors detected; normal execution is impossible 


20 


unrecoverable I/O error occurred during compilation; 
compilation terminated 


24 


specified program interruption exit. For details refer to 
IBM System/360, Operating System, Control Program 


Services. 



Note: the COND= parameter is explained in the Job Control Language 
publication. 



To communicate with the linkage editor, the 
programmer supplies an EXEC statement and 
DD statements that define all required data 
sets; he may also supply linkage editor 
control statements. 



Linkage Editor Name 

The program name for the linkage editor is 
IEVJL. If the linkage editor is executed 
without using cataloged procedures in a job 
step, the EXEC statement parameter, PGM= 
IEWL, must be used. 



Linkage Editor Input and Output 

The modules that are processed by the link- 
age editor are contained in data sets as 



1. Primary input data set (principal 
input) 

2. Call library (for automatic library 
call) 

3. Additional primary input or call 
library data sets 



The primary input data set is required 
for all linkage editor job steps. The call 
library is defined only if the automatic 



library call function is used. (Refer to 
IBM System/360, Operating System, Linkage 
Editor .) Additional sequential data sets 
or partitioned data sets are defined only 
as required. 

The primary input is a sequential data 
set that contains object modules and linkage 
editor control statements. In an RPG com- 
pile, link and execute job the primary in- 
put data set contains the object modules 
produced by the job steps. The primary in- 
put can be a chain of sequential data sets. 
A library member can be specified on a DD 
statement to be processed as a sequential 
data set. For details refer to IBM System/ 
360, Operating System, Job Control Languag e. 
The primary input data set must be specified 
by the ddname SYSLIN. 

The linkage editor can accept input from 
other than the primary input source. Addi- 
tional input sources such as user subroutines 
can be specified by the INCLUDE statement or 
automatic library call. For details of link- 
age editor control statements refer to IBM 
System/360, Operating System, Linkage Edit or. 
Variations to incorporate user subroutines 
are discussed in Executing RPG — Input 
Stream Variations . 

The output of the linkage editor is 
always placed in a PDS. Error messages and 
optional diagnostic messages are written on 
an intermediate storage device or a printer. 
In addition, a work data set is required by 
the linkage editor to do its processing. 



Linkage Editor ddnames and Device Classes 

The programmer communicates data set in- 
formation to the linkage editor through DD 
statements identified by specific ddnames 
(similar to the ddnames used by the com- 
piler) . The ddnames, functions, and re- 
quirements for data sets are shown in 
Table 9. 

Any data sets specified by SYSLIB or 
SYSLMOD must be partitioned data sets. 
(Additional inputs are partitioned data 
sets or sequential data sets.) The ddname 
for the DD statement that retrieves any 
additional libraries is written in INCLUDE 
and LIBRARY statements and is not fixed by 
the linkage editor. 

The device classes used by the compiler 
(see Table 6) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to the device 
classes listed in Table 10. 
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Table 9. Linkage Editor ddnames 



ddname 


FUNCTION 


DEVICE REQUIREMENTS 


SYSLIN 


Primary input data, nor- 
mally the output of the 
compiler 


• direct access 

• magnetic tape 

• card reader 


SYSLIB 


automatic call library 


• direct access 


SYSUT1 


work data set 


• direct access 


SYSPRINT 


diagnostic messages 


• printer 

• intermediate storage de- 
vice 


SYSLMOD 


output data set for the 
load module 


• direct access 


user- 
specified 


additional libraries and 
object modules 


• direct access 

• magnetic tape 



as the entry in Filename (columns 7-14) on 
the File Description Specifications sheet. 



Execution Cancellation 

During execution of the load module (object 
program) , job processing is cancelled when 
a halt indicator (H0-H9) is detected on ( see 
Halt Indicators ) . 



Execution Return Codes 

Table 11 shows the return codes issued by 
the RPG load module (object program) for 
use with the COND= parameter of the JOB 
or EXEC statements. 



Table 10. Correspondence Between Linkage 

Editor ddnames and Device Classes 



ddname 


Possible Device Classes 


SYSLIN 


SYSSQ, SYSDA, or the input 
stream device (specified by 
DD* or DD DATA) 


SYSLIB 


SYSDA 


SYSUT1 


SYSDA 


SYSLMOD 


SYSDA 


SYSPRINT 


A, SYSSQ 


user-specified 


SYSDA, SYSSQ 



LOAD MODULE EXECUTION 



Execution ddnames 

In the RPG source program the File Descrip- 
tion specifications entries are used to 
identify the data sets (files) . Data sets 
processed by the RPG load module must be 
defined by DD statements. The relationship 
is established between the data set defined 
in the source program and the DD statement 
by the ddname. The ddname must be the same 



USING CATALOGED PROCEDURES 

Because writing job control statements can 
become time-consuming work for the pro- 
grammer, IBM supplies three cataloged pro- 
cedures to aid in the compiling, link edit- 
ing, and executing of RPG programs. 



Compile 

The cataloged procedure for compilation is 
RPGEC. It is invoked by specifying the 
name RPGEC as the first parameter in an 
EXEC statement (refer to Cataloged Procedures ) 

With the procedure RPGEC, a DD statement 
RPG.SYSIN indicating the location of the 
source program must be supplied. 

The control statements that can be used 
to invoke the procedure are, 

//job name JOB 
//stepname EXEC RPGEC 
//RPG.SYSIN DD * 



RPG Source Program 



/* 
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Table 11. Load Module Return Codes 



Return 
Code 


Explanation 





normal execution, no errors 


28 


HO - initialized on or on due to programmer request 


32 


HO - invalid chaining request 


36 


HO - collating sequence error (matching records) 


40 


HO - record sequence error (predetermined sequence) 


44 


HO - undefined record type 


48 


HO - BSAM I/O error (combined file) 


52 


HO - DAM I/O error 


56 


HO - ISAM I/O error (random processing) 


60 


HO - ISAM I/O error (sequential processing) 


64 


HO - QSAM I/O error 


68 


HI - on 


72 


H2-on 


76 


H3- on 


80 


H4-on 


84 


H5- on 


88 


H6- on 


92 


H7-on 


96 


H8-on 


100 


H9-on 


132 


program interrupt (data): may occur when using non- 
numeric decimal data in a field specified as numeric 
data, or when using packed decimal data in a field 
specified as unpacked data 
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program interrupt (decimal divide): will occur if the 
value of FACTOR 2 of a DIV operation is zero 



//jobname JOB 
//stepname EXEC RPGELG 
//LKED.SYSIN DD * 



RPG Object Module 



i 
/* 



When the RPG compiler is maintained in 
a private library, a JOBLIB DD statement is 
required in the input stream to process an 
RPG program. The JOBLIB DD statement is 
used to temporarily chain the private li- 
brary with the system library. The format 
of the DD statement is, 



//JOBLIB DD DSNAME= libname, 

// DISP= (OLD, PASS) , etc. 



X 



Note: The COND = parameter is explained in the Job Control Language 
publication. 



with libname being the fully qualified name 
of the RPG library. The JOBLIB DD statement 
must appear immediately before the first 
EXEC statement for the job. The concatena- 
tion is in effect only for the duration of 
the j ob . 



Compile, Link Edit, and Execute 

The cataloged procedure, RPGECLG, passes a 
source module through three procedure steps- 
compile, link edit, and execute. The cata- 
loged procedure is invoked by specifying the 
name RPGECLG as the first parameter in an 
EXEC statement. 

The statements that invoke the cataloged 
procedure RPGECLG are, 



Link Edit and Execute 

The cataloged procedure to link edit RPG 
object modules and execute the resulting 
load module is RPGELG. It is invoked by 
specifying the name RPGELG as the first 
parameter in an EXEC statement. 

The cataloged procedure to link edit 
and execute consists of the control state- 
ments shown in Cataloged Procedures . 

With the procedure RPGELG, a DD state- 
ment LKED.SYSIN, which indicates the loca- 
tion of the object module, must be supplied. 

The control statements that can be used 
to invoke the RPGELG cataloged procedure 
are, 



//jobname JOB 
//stepname EXEC RPGECLG 
//RPG. SYS IN DD * 



r 



RPG Source Program 



_J 



The SYSIN data set (source module) must 
be defined to the compiler as a separate 
DD statement not contained in the cataloged 
procedure. 
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CATALOGED PROCEDURES 



This section contains figures showing the 
job control statements used in the RPG 
cataloged procedures and a brief description 
of each procedure. 

If the user selects MVT (Option 4) of the 
control program he must be aware of several 
items; the direct access space requirements 
of SYSOUT data sets, that SPACE= and UNIT= 
keyword parameters are valid for any SYSOUT 
data set, the size of the region that is 
selected by default when the REGION= param- 
eter is not specified for any job step. 
For additional information refer to the 
Syst em Generation manual (see Preface) . 

The cataloged procedures make use of the 
OS/360 job control language symbolic para- 
meter facility. Refer to Modifying Cata - 
loged Procedures Symbolic Parameter Values 
in this section. 



Compile 

The cataloged procedure for compilation 
(RPGEC) is shown in Figure 130. The numbers 
to the right correspond to the numbered ex- 
planations that follow. 

1. This statement assigns default values 
to the symbolic parameters defined in 
this procedure. 

2. The system name IESRPG identifies the 
RPG compiler. The REGION= keyword 
parameter specifies the region size 
that is to be allocated to the job 
step, provided MVT in the operating 
system is specified. If MVT is 

not specified, the REGION= parameter 
is ignored. The size of the region 
required for any job step depends on 
the size of the program, the access 
methods used, the size and number of 
buffers requested, and the work areas 
required by the various system func- 
tions (e.g. OPEN, EOV, CLOSE, etc.). 
Refer to the Control Program Options 
section of the Storage Estimates manual 
(see Preface) . 

The COND= parameter can be added to 
this statement by the EXEC statement 
that calls the procedure. 

3. The destination for the compiler out- 
put listing is defined by this state- 
ment as the standard system output 
class, SYSOUT=A. 

4. The destination for the object module 
(provided the option DECK has been 
specified) is defined as the standard 
system output class, SYSOUT=B. Usually 
the device assigned to this output 
class is a card punch. 

5. The three compiler utility data sets 
are described by these statements. 
The SEP= subparameter in the last 



statement and the SPACE= parameter in 
each statement are effective only if 
the device assigned is a direct access 
device. The number of specifications 
in the source program determines the 
space requirement. The procedure pro- 
vides an initial allocation of 60,000 
bytes and additional allocations (if 
required) of 12,000 bytes. 
6. This statement describes the compiler 
output (object module) produced for 
input to the linkage editor. The com- 
piler option LOAD causes the object 
module to be written on this data set. 
The third term in the DISP parameter 
causes the data set to be deleted if the 
job step terminates abnormally. 



NOTE: DCB parameters must not be overridden 
for any data set used in the Compile step. 
To override the device assignments of SYSUT1 
and/or SYSUT2 data sets , the user must 
assign both data sets to the same type of 
direct access device which must be a device 
other than the 2321 (e.g. 2311, 2314, 2301, 
etc. ) . 



Link Edit and Execute 



The cataloged procedure to link edit RPG 
object modules and execute the resulting 
load modules (RPGELG) is shown in Figure 
131. The numbers to the right correspond 
to the numbered explanations that follow. 

1. This statement assigns default values 
to the symbolic parameters defined in 
this procedure. 

2. This statement initiates linkage editor 
execution. The options in the PARM= 
field cause the linkage editor to put 
out a cross-reference table, and 

a list of all control statements 
processed. The LET option causes the 
linkage editor to mark the load module 
as executable even though errors were 
encountered during processing. 
The REGION= parameter specifies the 
region size required for the execution 
of this job step (provided the user has 
selected MVT in the operating system 
control program) . Refer to Control 
Program Options section of the Storage 
Estimates manual (see Preface) . 

3. This statement indicates that the input 
to the linkage editor is from the input 
stream. 

4. The output from the linkage editor is 
specified as a member of a temporary 
data set, residing on a direct access 
device, and is passed to a succeeding 
job step. The third term in the DISP 
parameter causes the data set to be 
deleted if the job step terminates 
abnormally. 
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Figure 130. Compile Catalogued Procedure (RPGEC) 
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Figure 131. Link Edit and Execute Catalogued Procedure (RPGELG) 



The utility data set for the linkage 
editor is described by this statement. 
The destination for the linkage editor 
output listing is defined by this 
statement as the standard output class, 
SYSOUT=A. 

This statement initiates execution of 
the link edited load module. The nota- 
tion *. LKED. SYSLMOD identifies the load 
module as being in the data set de- 
scribed in the job step LKED by the DD 



statement named SYSLMOD. The REGION= 
keyword parameter is not included in 
this job step. The effect of this 
omission is that the default region 
size is selected (providing the user 
has selected MVT in the operating 
system control program) . If the default 
region size is not sufficient, refer to 
the section Overriding Parameters in 
the EXEC Statement. 
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Compile, Link Edit, and Execute 

The cataloged procedure (RPGECLG) to com- 
pile, link edit, and execute RPG source 
programs is shown in Figure 132. 

The cataloged procedure RPGECLG con- 
sists of the statements in the RPGEC and 
RPGELG procedures, with the exception: the 
DD statement SYSLIN identifies the linkage 
editor input data set as the same data set 
produced as output by the compiler. Further, 
the third term in the DISP parameter of the 
DD statement SYSLMOD will cause the data set 
to be deleted if the LKED step is terminated 
abnormally. The programmer must define the 
data set SYSIN (as a separate DD statement) 
for the compiler so that the source program 
can be read. He can also concatenate any 
input to the linkage editor from the input 
stream with the input from the compiler by 
using a DD statement LKED .SYSIN. 



User Cataloged Procedures 

The programmer can write his own cataloged 
procedures and tailor them to the facili- 
ties in his installation. He can also 
permanently modify the IBM-supplied cata- 
loged procedures. For information about 
permanently modifying cataloged procedures, 
see the publication IBM System/360 Opera- 
ting System, Utilities (C28-6586) . 



The RPG cataloged procedures may be 
temporarily modified by: 

1. specifying new values for symbolic 
parameters 

2. overriding complete DD or EXEC state- 
ments . 



//DEtAUtT PROC R6REGN«52K,iR6P]ARM- » NODECK , LOAD , LIST , NOSEQN ' . 1 
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//SYSLMfid DP VSMAME~UGO£ET(RPG) } UNIT = SYSpA ,V1SP-(NEH , PASS , DELETE) , 1 
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Figure 132. Compile, Link Edit and Execute Catalogued Procedure (RPGECLG) 
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Modifying Cataloged Procedures Symbolic 
Parameter Values 

The RPG cataloged procedures make use of 
the job control language symbolic parameter 
facility. Refer to IBM System/360 Operating 
System, Job Control Language (C28-6539) . A 
symbolic parameter is a symbol that: appears 
in the operand of a cataloged procedure state- 
ment. Symbolic parameters are assigned 
values either on the EXEC statement that in- 
vokes the procedure or on a PROC statement 
in the procedure. 

In the RPG procedures, symbolic para- 
meters are used for REGION, COND, and PARM 
specifications on the EXEC statement, and 
for SPACE specifications on the DD state- 
ments. These values may be temporarily 
changed by coding the symbolic parameter 
and the desired value on the EXEC statement 
used to invoke the procedure . 



Examples 

In procedure RPGECLG (Figure 132) , suppres- 
sing production of a listing might be de- 
sired. In this case, the EXEC statement in 
the input stream would be, 



//stepname EXEC RPGECLG, RGPARM=' NOLI ST ' 

In the procedure RPGEC (Figure 130) , a 
punched object deck can be obtained, the 
source deck sequence checked, and SPACE= 
parameters of the data set SYSUT1 respecified 
by, 



//stepname EXEC RPGEC, X 

// RGPARM= • DECK , SEQN ' , X 

// RGU1SPC=' (200,(80,40) ) ' 

In the procedure RPGELG (Figure 131) , the 
link edit region (LKREGN) and the execution 
condition (GOCOND) specifications may be 
changed with, 

//stepname EXEC RPGELG, X 

// GOCOND=' (3,LT,LKED) ' , X 

// LKREGN=90K 

If it is desired to modify an EXEC or DD 
statement parameter not specified symbol- 
ically, it is necessary to override the de- 
sired statement with an appropriate state- 
ment in the input stream. 

The symbolic parameter names are listed 
in Figure 132.1. 

Overriding Statements in Cataloged 
Procedures 

EXEC and DD statements appearing in cata- 
loged procedures can be overridden. 
Such overriding of statements or fields 
is effective only for the duration 
of the job step in which the statements 
appear. The statements, as stored in the 
procedure library of the system, remain 
unchanged. 

Overriding for the purposes of respeci- 
fication, addition, or nullification is ac- 
complished by including in the input stream 
statements containing the desired changes 
and identifying the statements to be over- 
ridden. 



Symbolic 








Name 


Job Step 


Description 


Assigned Value 


&RGREGN 


Compiler 


Region size 


52K 


&RGPARM 




PARM = field 


'NODECK, LIST, LOAD, NOSEQN' 


&RGU3SPC 




SYSUT3 space 


'(600, (100,20))' 


&RGU2SPC 




SYSUT2 space 


'(600, (100,20))' 


&RGU1SPC 




SYSUT1 space 


'(600, (100,20))' 


&RGGOSPC 




SYSGO space 


"(80, (200,50))' 


&LKREGN 


Link Edit 


Region size 


100K 


&LKMDSPC 




SYSLMOD space 


'(1024, (50,20,1))' 


&LKU1SPC 




SYSUT1 space 


'(1024, (50,20))' 


&LKPARM 




PARM = field 


'XREF, LIST, LET' 


&GOCOND 


Go 


COND = field 








for RPGECLG 


'((9,LT,RPG), (5,LT,LKED))' 


&GOCOND 




COND = field 








for RPGELG 


'(5,LT,LKED)' 



Figure 132.1. Symbolic Parameter Name Assignments 
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Overriding Parameters in the EXEC Statement 

It may be desirable to add the PARM=, COND=, 
or REGION= parameters to an RPG procedure 
EXEC statement which does not have the para- 
meter. This can be done by including in the 
EXEC statement calling the procedure the 
notation PARM.stepname=,COND.stepname=, or 
REGION. stepname=, followed by the desired 
change. "Stepname" identifies the EXEC 
statement within the procedure to which the 
modification applies. Overriding the PGM= 
parameter is not possible. 



statements that are added to the procedure 
must follow overriding DD statements. 

When the procedures RPGEC and RPGECLG 
are used, a DD statement must be added to 
define the SYSIN data set to the compile 
step in the procedures (see Using Cataloged 
Procedures ) . When the procedure RPGELG is 
used, a DD statement must be added to de- 
fine the SYSLIN data set (see Using Cata- 
loged Procedures) . 



Overriding and Adding DD Statements 

A DD statement with name "procstep.ddname" 
is used to override parameters not containing 
symbolic parameters in DD statements in 
cataloged procedures , or to add DD state- 
ments to cataloged procedures. The procstep 
identifies the step in the cataloged pro- 
cedure. If ddname is the name of a DD 
statement 

1. present in the step, the parameters in 
the new DD statement override param- 
eters in the DD statement in the pro- 
cedure step . 

2. not present in the step, the new DD 
statement is added to the step . 

In any case, the modification is only ef- 
fective for the current execution of the 
cataloged procedure. 

When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are re- 
placed by the corresponding parameters in 
the new DD statement. Therefore, only 
parameters that must be changed are speci- 
fied in the overriding DD statement. 

If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appear in the cataloged procedure. Any DD 



Examples 

In the procedure RPGEC (Figure 130) , the 
UNIT= parameter of the data set SYSUT1 can 
be respecified by including in the input 
stream: 

//stepname EXEC RPGEC 

//RPG.SYSUT1 DD UNIT= (2311 ,SEP= (SYSUT2 ,SYSUT3) 

In procedure RPGECLG (Figure 132) chang- 
ing the COND= parameter to the EXEC state- 
ment which specifies execution of the 
linkage editor and specifying a region size 
of 60K in the GO step might be desired. 
In this case, the EXEC statement in the 
input stream would appear as follows: 

//stepname EXEC RPGECLG, X 

// COND. LKED=( 9 ,LT, stepname. RPG) ,X 

// REGION. GO=6 OK 

Execution of the linkage editor job step 
//LKED is suppressed if the return code 
issued by the compiler (step RPG) was greater 
than 8 and the region size requested for the 
GO step was 60K. 



The Job Control Language and Utilities 
publications provide additional description 
of overriding techniques . 
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RPG SOURCE PROGRAM DECK ARRANGEMENT 

The deck prepared by the programmer is 
arranged as shown in Figure 133. The con- 
tents of the Operating System Job Control 
Statements are listed in the Job Control 
Language publication (see Preface) . 

The order in which the programmer places 
his control cards and source deck is as 
follows: 

1 . Operating System Job Control State- 
ments 

2 . RPG Control Card (Processor Control 
Card) 

3. File Description Specifications 

4. File Extension Specifications 

5 . Line Counter Specifications 

6. Input Specifications 

7. Calculation Specifications 

8. Output-Format Specifications 



Output-Format 
Specifications 



71 



Calculation 
Specifi cations 



Input Specifications 



Line Counter 



File Extension 



File Description 



RPG Control Card 



Operating System 
Job Control Statements 



RPG CONTROL CARD 

The contents of the RPG control card follow, 



Figure 133. RPG Deck Arrangement in the 

Operating System Input Stream 



Column 
1-5 

6 

7-16 

17 



18 



19 



Contents Explanation Column 

XXXXX Page and Line numbers 
of the control card 
(can be 00000). 

H Identifies the card 

as a header card. 20 

blank Not used; may be left 
blank . 

1,2, or If the Sterling shil- 

blank lings field on input 
is in the IBM format, 
punch 1 in this col- 
umn. If it is in the 
BSI format, punch 2. 
Otherwise leave 
blank. 

1, 2, or If the Sterling pence 21 

blank field on input is in 
the IBM format, punch 

1 . If it is in the 
BSI format, punch 2. 
Otherwise leave blank. 

0,1,2, or If the Sterling shil- 

blank lings field on output 

is in the IBM format, 

punch 1. If it is in 22-25 

the BSI format, punch 

2 . Otherwise leave 26 
blank or punch . The 

zero is allowed only 



Contents Explanation 

for purposes of com- 
patibility; it is 
treated the same as a 
blank . 
0,1,2, or If the Sterling pence 
blank field on output is in 
the IBM format, punch 
1 . If it is in the 
BSI format, punch 2 . 
Otherwise leave blank 
or punch . The zero 
is allowed only for 
purposes of compati- 
bility; it is treated 
the same as a blank. 
I or Inverted Print . If 
blank numeric literals and 
Edit words use the 
European conventions 
of punctuation (com- 
mas for decimal point 
and vice-versa) , enter 
an I in this column . 
Otherwise leave blank . 
blank Not used; may be left 

blank . 
A, or Alternate Collating 
blank Sequence . Enter an 
A in this column, if 
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Column 



Contents Explanation 



27-74 
75-80 



Blank 
XXXXXX 



EXECUTING RPG 



an external subrou- 
tine is used to trans- 
late the sequence of 
a matching field to 
the collating se- 
quence of the System/ 
360 . If an external 
translating subrou- 
tine is not used, 
leave this column 
blank . 

The name of the 
external subroutine 
is predefined by RPG 
to be ALTSEQ. 
Not used; may be left 
blank 

Program Identifica- 
tion . Enter in these 
columns the program 
identification . 

If column 75 is 
blank, the name RPGOBJ 
is used for program 
identification . 

The first four 
characters of the 
identification will 
be punched in Columns 
7 3-76 of each card in 
the object program 
deck. Columns 77-80 
of the object deck 
cards will contain a 
sequence number. 



INPUT STREAM VARIATIONS 



The input stream varies considerably de- 
pending on the user's application. This 
section illustrates the input stream for 
various combinations of control statements 
source decks, user subroutines and data 
decks . 

NOTE: When using a sequential scheduler, 
only one data set can be included in the 
input stream for each job step or procedure 
step. For additional information, refer to 
IBM System/360 Operating System, Job Control 
Language . 

IBM supplies three cataloged procedures 
that are explained in Cataloged Procedures 
and illustrated in Using Cataloged Proce- 
dures. Additional examples are included 
in this section to illustrate inclusion 
of user subroutines for execution with the 
RPG load module. 



The EXIT operand can be used to incor- 
porate subroutines in assembler language. 
For convenience, frequently used subroutines 
are maintained in a library. The following 
illustrates three methods for including 
user subroutines with the RPG object module 
as input to the linkage editor. In these 
examples the user must supply DD statements 
corresponding to the File Description 
specifications. The LIBRARY statement is 
used to call the library in order to resolve 
the designated external references (SUBRl, 
SUBR2) . The LKED.SUBLIB DD statement 
defines the private library containing the 
subroutines. These subroutines can be 
either load modules or object modules with 
control statements. 



// j obname JOB 
//stepname EXEC RPGECLG 
//RPG. SYS IN DD * 



I 1 

i RPG source program i 
i i 

/* 

//LKED.SUBLIB DD DSNAME=libname, DISP=0LD 

//LKED.SYSIN DD * 

LIBRARY SUBLIB (SUBRl, SUBR2) 
/* 



The INCLUDE statement is used to cause 
the linkage editor to process the sub- 
routine modules (SUBRl ,SUBR2) . The 
LKED.SUBLIB DD statement identifies the 
private library that contains the subrou- 
tines. These subroutines can be either 
load modules or object modules with control 
statements . 



// j obname JOB 
//stepname EXEC RPGECLG 
//RPG.SYSIN DD * 

i RPG source program i 

i i 

/* 

//LKED.SUBLIB DD DSNAME=libname, DISP=0LD 

//LKED.SYSIN DD * 

INCLUDE SUBLIB ( SUBRl , SUBR2 ) 
/* 
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The placement of the user subroutines 
that are included as object modules in the 
input stream of a compile and execute job 
is, 



// j obname JOB 

//step name EXEC RPGECLG 

//RPG.SYSIN DD * 

i 1 

i RPG source program i 

/* 

//LKED.SYSIN DD * 

i 1 

'SUBR1 object module i 
L_ i 

i 1 

ISUBR2 object module i 

i J i 

i 1 

iSUBR3 object module ' 

i i 

/* 



Subroutines can be included both from a 
library and in the input stream. The 
job shown below includes subroutines SUBR1 
and SUBR2 from the library and SUBR3 from 
the input stream. 



// j obname JOB 
//stepname EXEC RPGECLG 
//RPG.SYSIN DD * 

i i 

i RPG source program i 

i — i 

/* 

//LKED . SUBLIB DD DSNAME=libname, DISP= OLD 

//LKED.SYSIN DD * 

INCLUDE SUBLIB (SUBR1, SUBR2) 



i SUBR3 object module 



The operating system provides the capa- 
bility to assemble user subroutines within 
the same job as the RPG compilation. The 
assembly can either precede or follow or 
both precede and follow the RPG compilation, 
The job setup for an assembly following 
the RPG compilation is, 



// j ob name JOB 
//stepname EXEC RPGEC 
//RPG.SYSGO DD DSNAME=&LOADSET 
//RPG.SYSIN DD * 

i 1 

i RPG source program i 

/* 

//stepname EXEC ASMECLG 

//ASM. SYS IN DD * 

i — — ~~ — — — — — — 1 

i source program for assembly i 
i i 

/* 

The first EXEC statement invokes the 
cataloged procedure for compilation (RPGEC) 
The RPG.SYSGO DD statement overrides the 
cataloged procedure renaming the data set 
that contains the object module to be the 
same data set as used by the assembler. 
The object module that is output from the 
assembly is added to the data set that 
subsequently is input to the linkage editor 
The subparameter MOD (in RPGEC) specifies 
that the data set is added to and causes 
logical positioning after the last record 
in the data set. 

The second EXEC statement invokes the 
cataloged procedure for assembly, link 
edit, and execute (ASMECLG) . Refer to the 
Assembler (E) Programmer's Guide for a de- 
tailed description of cataloged procedures 
for assembly. 

Execution must begin in the RPG produced 
object module. When an assembly precedes 
the RPG compilation, the RPG compiler is 
not the first program executed. Therefore, 
an ENTRY statement is required to specify 
the name of the RPG program. In order to 
link edit the assembly object module with 
the RPG object module, the SYSPUNCH DD 
statement in the ASMEC catalog procedure 
must be overridden. The assembly object 
module must be on SYSSQ. The job setup for 
assembly of the user subroutine preceding 
the RPG compilation is, 

//j obname JOB 

//stepname EXEC ASMEC 

//ASM. SYSPUNCH DD DSNAME=&GO , UNIT=SYSDA , X 

// SPACE= (80, (200,50) ) ,DISP= X 

// (MOD, PASS) 

//ASM. SYS IN DD * 

i source program for assembly i 
i — 1 

/* 

//stepname EXEC RPGECLG 

//RPG.SYSIN DD * 

i 1 

iRPG source program ' 

/* 

//LKED.SYSIN DD * 

ENTRY source program identification 
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The deck arrangement for jobs processing 
data files is, 



// j obname JOB 
//stepname EXEC RPGECLG 
//RPG.SYSIN DD * 



/* 

//GO 

//GO 



//GO 
/* 



iRPG source program i 



ddname (parameters) 
ddname (parameters) 



ddname (parameters) 



Data sets (files) processed by an RPG 
program must be defined by DD statements 
(see Load Module Execution ) . 

The deck arrangement for jobs proces- 
sing data files and tables is, 



// j ob n ame JOB 
//stepname EXEC RPGECLG 
//RPG.SYSIN DD * 

i 

i RPG source program 



/* 

//GO. ddname (parameters) 
//GO. ddname (parameters) 
//GO.SYSIN DD * 



i tables i 



/* 
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APPENDIX A. 



SAMPLE PROGRAMS 



Three complete sample programs are included 
in this section. 



The labels assigned to the fields into 
which the object program will place the 
information are as follows: 



SAMPLE PROGRAM ONE 



The input file in the first program consists 
of punched cards . Each card in the file 
contains a data record that includes from 
one to eighty characters of information. 
Each data record represents a purchase made 
from the reporting firm by a customer. The 
types of information and the card columns 
in which each appears are shown in Figure 
134. 



Customer Name 
Invoice Data — Month 
Invoice Data — Day 
Invoice Number 
Customer Number 
Customer Location 
Customer Location 
Invoice Amount 



Label 

NAME 

MONTH 

DAY 

INVNO 

CUSTNO 

STATE 

CITY 

INVAMT 



Figure 135 is an output listing of the 
sample program. 



A 



Unused 



Customer 
Name 



i 

« 



1 

i 
z 



1 

E 

3 

z 



s 



4- 

u 



Unused 



Invoice 
Amount 



l 
Columns 8 



29 



30 31132 33 



34 38139 4314445 



46 481 



174 



801 



Figure 134. Input File-Card Format 
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0S/RPG132K)»VI 

RESULTING INDJCAIDRS 



AIDRS 

■ 

ADDRESS RI AO0RESS RI ADDRESS RI ADDRESS *I ADDRESS RI A0ORESS R! 

' ■ -. 




QETAIL CALCULATION! 

TOTAL CALCUIAT 

DETAIL LINES 

TOTAL LINES 

INPUT/OUTPUT REQUEST BLOCKS POINTER 

LUCATIUN OF DCS POINTERS 

INPUT/OUTPUT INTERFACE ROUTINES 

LINE COUNT IK 

K.'JftK AREA POINTER 

MVERELO* BYPASS 

CONTROL LEVEL 

TAHLEIASSEM9LE 4) 

TEST ZONE IBCOI 

JV6RFL0W LINES 

LINKAGE PROGRAM 





IIS.. 

OOOAEA 



OOOAEA 

ass 

0ODD8O 



001840 
000AG2 
00061C 

000 BC4 
001414 
:>0i)A02 
00154C 









' 



■ 



OS/RPG!32K)*Vl,LG 
PROGRAM LENGTH 001961 
•END Of CGWILATIOM." 



SAHPL1 RPG 



09/20/66 



PAGE 0003 






Figure 135. Output Listing 
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To produce an object module capable of 
writing the report shown in Figure 136, 
the programmer must prepare a source pro- 
gram as shown in Figure 137. The entries 
in the RPG specifications sheet are de- 
scribed here. 



The output file OUTPUT is also defined 
on the File Description sheet. The format 
is variable; the block length is 132 and 
the records are 132 characters in length. 
The entry OF in columns 33-34 indicates that 
the output file defined on the line is to 
cause the overflow condition. 



FILE DESCRIPTION SHEET 

Two files (input and output) are described 
on this sheet. The input file INPUT (col- 
umns 7-11) is the primary file (column 16) . 
It causes the end-of-job condition when it 
is depleted (column 17) . The \input records 
are fixed in length (column 19) ; the block 
length is 80 (columns 22 and 23) ; and the 
records are 80 characters in length (col- 
umns 26 and 27) . 



INPUT SPECIFICATIONS SHEET 

The input file has a sequence of Ah, and if 
column 1 contains the zone of a minus, 
Resulting Indicator 01 is turned on (as 
indicated by the entries in 19-20, 24 and 
26-27) . The locations of the fields which 
contain the input data are defined in col- 
umns 44-51 . The names of the input fields 
are entered in columns 53-58. Whenever a 
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Figure 136. Printed Report 
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IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR FILE DESCRIPTION SPECIFICATIONS 

IBM System/ 360 



Punching 
Initruclion 


Graphic 
















Punch 

















m 






Lin. 
3 4 5 


t 

E 

6 


Filename 

7 8 9 10 11 12 13 U 




Fil 












Aode of Processing 


1 

1 
1 

39 


Device 

40 41 42 43 44 45 46 
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new customer number is read in, control 
level 1 is turned on (columns 59-60) . 



CALCULATION SPECIFICATIONS SHEET 

The contents of the field TOTAL are added 
to the contents of the field INVAMT, and 
the result is stored in TOTAL. The result 
field has a length of seven positions, and 
two positions are reserved for the decimal 
portion. The field GRPTOT is added to 
INVAMT, and the result is stored in GRPTOT 
which is seven positions long, and has two 
decimal positions . 



OUTPUT- FORMAT SPECIFICATIONS SHEET 

OUTPUT, the name of the file to which the 
records defined on the line belong, is 
entered under Filename on the first line 



of the sheet . In column 15 the output 
types, H, D and T are entered to designate 
the heading, detail, and total lines. 

The first heading line, ACCOUNTS RECEIV- 
ABLE REGISTER, prints either on the first 
page (IP) or overflow conditions (OF) . The 
OR entered in columns 14 and 15 of the sec- 
ond line allows for printing on the first 
page or. on overflow. The other heading 
lines also print on these conditions. 

When Output Indicator 01 is on, the 
field entered in Field Name will print in 
the positions indicated in columns 40-43. 
Zero suppression occurs on CUSTNO, STATE, 
CITY, INVNO, MONTH, and DAY. 

The total lines are to print whenever 
control fields LI or LR are on . The group 
total GRPTOT prints when LI is ON, and 
after it is printed, the contents of GRPTOT 
are blanked out. The final total is print- 
ed when the LR (last record) indicator is 
on. 
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SAMPLE PROGRAM TWO 



This is similar to the previous program. 
In this example, however, two input files 
are used. The Transaction File is a card 
file with fields as shown in Figure 134 of 
the previous program. Another input file 
(Master Customer File) , which is on tape, 
contains information about the firm's cus- 
tomers (Figure 138) . The fields contained 
in the two input files are illustrated in 
Figure 139. 

The program is to process the master 
customer file, using records from the 
transaction file, to produce printed re- 
ceipts. The master file is updated, by 
producing a new master customer file. The 
coding required for this program is shown 
in Figure 140 . 



FILE DESCRIPTION SHEET 
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The two input files TRANSIN and MASTERIN 



Master Customer File 
(MASTERIN) 

Q 



Transaction File 
(TRANSIN) 
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are defined, and the two output files 
MASTEROT, which is the updated master file, 
and MASTLIST, which is the printed report, 
are defined on the file-description sheet . 
TRANSIN is designated as the secondary file 
because it may not contain transactions 
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involving all the customers on the master 
customer file. TRANSIN is ascending in 
order . It has fixed-length records which 
are 80 characters long. The block length 
is 80. 

MASTERIN is the primary file. If the 
transaction file does not have a corre- 
sponding customer number (specified by the 
Matching Fields specification on the input 
sheet) the master file is processed. Proc- 
essing continues until all the records in 
the master customer file have been processed 
(indicated by the E in column 17) . The 
input records contained in the master cus- 
tomer file are ascending in order, fixed in 
length, and have a block length of 300 . 
Each record is 100 characters in length. 

The file MASTLIST is the printed report. 
The format is variable. The length of the 
records can be 132. The overflow entry in 
columns 33-34 indicates that the overflow 
condition is to occur on the MASTLIST 
printer . 

The output file MASTEROT is a tape file 
which contains the updated master customer 
records . The output records are fixed in 
length, and are 100 characters in length. 
The block length is 300 . 

NOTE: A blank in column 5 3 indicates that 
there are no labels in the output file. 

INPUT SPECIFICATIONS SHEET 



04 is turned on. The date is contained in 
columns 2-7 of the card. Indicator 05 is 
turned on whenever these columns are zero 
or minus . 

MASTERIN: The tape input file that con- 
tains information about the firm's customers 
is assigned sequence AA . The first entry 
under field name defines the entire record. 
This entry (RECORD) is made to enable the 
entire record to be referenced on the Output- 
Format Specifications sheet. CUSTNO of the 
master file corresponds to CUSTNO in the 
transaction file. Whenever a new customer 
number is read in, LI is set. The entry Ml 
indicates that the customer number in the 
master file will be matched with the cus- 
tomer number in the transaction file. 



CALCULATION SPECIFICATIONS SHEET 



Whenever the matching record indicator MR is 
on and indicator 02 is on, the contents of 
the field AMT are added to the MASBAL. The 
result is stored in MASBAL. The date is 
moved to the field PAYDAT. 

Whenever the matching record indicator 
MR is on and indicator 3 is on, AMT is sub- 
tracted from MASBAL, and the result is 
stored in MASBAL. The date is moved to 
PAYPUR. 



The two input files TRANSIN and MASTERIN 
are defined on the Input Specification 
sheet . 

TRANSIN: The input records may be ob- 
tained from three types of cards. 

Sequence AA has been assigned to two 
types . If card column 1 contains the zone 
of a minus, resulting indicator 02 is turn- 
ed on. If card column 1 contains the zone 
of a plus, indicator 3 is turned on. The 
cards that have a minus in column 1 are 
selected into the 2 pocket (column 42) . 
The locations of the input records and 
their labels are defined in columns 46-58 
of the sheet . 

The field CUSTNO (customer number) has 
entries in columns 59-60 ( Control Level ) 
and columns 61-62 ( Matching Fields ) of the 
Input Specifications sheet. Whenever a new 
customer number is read in, control level 1 
(LI) is set on. This condition is tested 
on the Output-Format Specifications sheet to 
govern printing of total lines and to pro- 
duce the updated customer file. The entry 
in matching fields specifies that customer 
number will be used to match another field 
(CUSTNO) in the MASTERIN file. 

The first card in the transaction file 
is a date card. It is assigned sequence BB. 
Whenever column 1 contains a D, indicator 



OUTPUT-FORMAT SPECIFICATIONS SHEET 

The output file MASTEROT is the updated 
tape file. The entries in output indica- 
tors allow for the following. Whenever 
conditions 01 and NMR are satisfied 
(resulting indicator 01 is on and no match- 
ing record is present) , the entire tape in- 
put record will be written out on tape. 
This condition results because there was 
no corresponding customer number in the 
transaction file for the master customer 
number . 

To keep the master customer file com- 
plete, the old input record is written out 
on the updated tape file when no informa- 
tion is present in the transaction file. 

If, however, LI and MR are on, the in- 
put record is written out on tape. The 
entire record is written, but the fields 
MASBAL, PAYDAT, and PAYPUR contain the new 
entries based on the calculations. By 
coding the entries in this way, the new 
information for MASBAL, PAYDAT, and PAYPUR 
is entered on the master customer file, but 
the customer ' s name and address are retain- 
ed. 

The specifications for the printed re- 
port are listed under the name of the output 
file MASTLIST. 
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SAMPLE PROGRAM THREE 

The third sample (Figures 141 and 142) 
illustrates some of the more complex 
capabilities of RPG. 

1 . Processing chained records on a 



Direct Access Storage Device 
(DASD) . 

2 . Updating records on a DASD . 

3. Multiple input and output files. 

4. Creating exception records. 

5. Providing for processing when a record 
in the chained file is missing. 
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FILE DESCRIPTION SPECIFICATIONS 

The primary input file, designated by a P 
in column 16, is on the card reader and is 
labeled CARDIN. This card file also acts 
as a transaction file for the updating of 
the inventory records contained on the file 
labeled INVFIL. The U in column 15 of the 
specification for INVFIL indicates that 
this DASD file is updated (used for both 
input and output) . The file has direct 
organization indicated by the D in column 
32, and is processed randomly as specified 
by the R in column 28 . 

The E in column 17 of the CARDIN file 
description entry directs the program to 
end execution when the last record of the 
CARDIN file has been processed. The E in 



column 39 indicates that a file extension 
specification has been coded for the CARDIN 
file. 

The output files are an exception card 
file labeled CARDOUT and the printed trans- 
action report labeled PRINTOUT. 

CARDIN and CARDOUT consist of 80 -chara- 
cter records. INVFIL has a block length 
of 125 characters and a record length of 
125 characters. Record length for PRINTOUT 
is variable, with a maximum of 132 chara- 
cters . 



FILE EXTENSION SPECIFICATIONS 

The file extension sheet identifies CARDIN 
as the chaining file, indicating that record 



Appendix A. Sample Programs 163 



sequence CC contains the chaining field CI . 
INVFIL is the chained file and CONRTN is 
the RPG internal label of the specifications 
on the Calculation Specifications sheet for 
the external conversion routine that proc- 
esses the chaining field to obtain the rela- 
tive track address in the DASD file. 



designates the field labeled DTLPAR as the 
chaining field. The conversion routine 
CONRTN, indicated on the Calculation Speci- 
fications sheet, makes the DTLPAR field 
available to the user's external conversion 
routine. 



INPUT SPECIFICATIONS 

The input card and DASD files are described 
on the Input Specifications sheet. Each 
field that is used is defined. The CI in 
columns 61-62 of the transaction card file 



CALCULATION SPECIFICATIONS 

Two sets of calculation specifications are 
described. After the label CONRTN, the 
operation code EXTCV is used to indicate 
that the conversion routine is to be per- 
formed. ADDCON is the symbolic address of 
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the external conversion routine. TRKADR, 
the field that contains the relative track 
address in the DASD file, must have a length 
of three. The external routine can be a 
member of a library or in the form of an 
object module card deck. As a card deck it 
is included with the RPG object module as 
input to the linkage editor. 

The operation code KEYCV states that the 
record key of the DASD record can be obtained 
directly from the field DTLPAR. 

The calculations in lines 30-070 require 
the presence of corresponding chaining 
(CARDIN) and chained (INVFIL) records. 
The condition is indicated by the simulta- 
neous setting of resulting indicators 01 



and 03. The ONHAND field from the INVFIL 
record is zero and added to a work area 
(SAVE) . Data fields RECPTS and RETURN 
from CARDIN records are added to SAVE: 
ISSUES are subtracted. When each input 
card for an INVFIL record is processed, the 
resulting new ONHAND field in SAVE is com- 
pared to the minimum balance. If ONHAND 
equals the minimum, resulting indicator 05 
is set on. If ONHAND drops below the min- 
imum, resulting indicator 04 is set on. 

The entry on line 080 resets the HO in- 
dicator which would otherwise terminate 
processing when a record in the chained 
file is missing. The printed output notes 
this error condition. 
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OUTPUT -FORMAT SPECIFICATIONS 

The PRINTOUT file's heading information can 
be printed under control of either resulting 
indicator 02, which is set for the date 
card (the first card in the CARDIN file) , or 
overflow (OF) . The OF indicator governs all 
heading printing after the first page. The 
entry PAGE in line 30 causes the page 



number to be updated automatically for each 
new page . 

The detail line described by the entries 
in lines 150 of Figure 142 (Part 4) through 
050 of Figure 142 (Part 5) requires the 
presence of both the CARDIN and INVFIL rec- 
ords (resulting indicators 01 and 3 on) . 
If resulting indicator 04 is on, the words 
BELOW MINIMUM indicate the stock violation. 
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If indicator 05 is on, the message EXPEDITE 
is added . 

The output line described in PRINTOUT 
entries 060-090 is the message printed when 
the error condition occurs of a CARDIN re 
cord, and no corresponding INVFIL record. 
This condition is identified by resulting in- 
dicator 01 being off when indicator 03 is on. 

The exception file CARDOUT has a card 
punched for each transaction that results 
in a below-minimum of at-minimum stock 
level . These cards contain the part number 
and description, vendor number, date, and 
the E or B code for EXPEDITE or BELOW 



MINIMUM. Below minimum cards, identified by 
the simultaneous on settings of indicators 
01, 03, and 04, are selected to stacker num- 
ber P2. At minimum cards, with indicators 
01, 3, and 05 on, are selected to stacker 
number RP3. 

Lines 180 and 190 provide for the up- 
dating and writing out of the INVFIL rec- 
ords. If indicators 01 and 03 are both on, 
indicating that the INVFIL record has been 
updated by a CARDIN transaction, the new 
ONHAND is moved into its INVFIL location 
from the work area SAVE, and the record 
is written. 
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APPENDIX B. 
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APPENDIX C. 



RPG LOGIC FLOWCHARTS 
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APPENDIX D. STERLING ROUTINES FOR THE REPORT PROGRAM GENERATOR 



The RPG sterling routines furnish users with 
a convenient and time-saving means of hand- 
ling sterling amounts. The presence of 
sterling fields is indicated to the RPG pro- 
gram by additional entries in the input and 
output specifications forms and in the con- 
trol card. The file description, file ex- 
tension, and calculation forms are not af- 
fected. 

Sterling input information can be repre- 
sented in two formats: IBM and BSI as 
described in the control card. The RPG 
sterling routines convert the input fields 
into a pence-format field. A pence-format 
field is a sterling amount represented in 
pence. If the output is to be printed, the 
fields are converted with shillings and 
pence printed in two positions each with 
zero suppression in effect in the tens 
position of each field. If the output is 
not printed, the output is converted to 
either BSI or IBM formats . 

NOTE 1: On both input and output the pounds 
field must consist of at least one, and no 
more than nine positions. 

NOTE 2: BSI or IBM input files of one pro- 
gram must use the same code combination 
throughout . 



INPUT SPECIFICATIONS 

The position of the sign must be specified 
in columns 71-74. Enter an S in column 74, 
if the sign is in the normal position. If 
the pence field has decimal positions, the 
normal position of the sign is in the right- 
most decimal position of the pence field. 
If the pence field has no decimal positions, 
the normal position of the sign is in the 
units position of the pounds field. 

NOTE 1: One of the digits 0, 1, 2, or 3 
must be entered in column 52, to indicate 
the number of required decimal positions. 

NOTE 2: It is not permissible to use the 
same name for both a sterling field and a 
decimal field. 

NOTE 3: The sign of the field must contain 
a numeric underpunch. 



71-74 in the same manner as for sterling in- 
put fields. The sterling sign will always 
appear on output whether the field is plus, 
minus, or zero. 

Output Which is Not Printed. The field 
may be specified as any combination of IBM 
or BSI shillings and pence formats. The 
sign may appear anywhere within the record. 
When outside the field, the sign will be 
supplied with a zero underpunch. 

Printed Output. The normal sign position 
must be used. Insert the letter S in col- 
umn 74 of the Output Specifications Sheet. 

NOTE 1: Shillings and pence are printed in 
two positions each. When no edit word is 
specified zero suppression is in effect in 
the tens positions of each field. 



NOTE 2: The pounds field consists of at 
least one and no more than 9 positions. 
Zero suppression on the pounds field may be 
obtained by placing Z in column 38 of the 
specification sheet. The sign will not be 
suppressed since its position depends on 
the presence or absence of decimal pence. 

NOTE 3: If a field is defined as a sterling 
field in the input but not in the output 
specification, the output will be in pence 
format . 

NOTE 4: Editing is allowed only on printed 
output files . The rules governing the use 
of edit control words are the same as those 
for decimal fields. The features available 
are: 

1. Zero suppression in the pounds field. 

2. Zero suppression in the shillings field, 
if both pound and shilling values are 
zero . 

3. Zero suppression in the pence field, if 
pound, shilling and pence values are 
zero. 

4. Suppression of zeros preceding signs, 
and suppression of separation marks be- 
tween pounds and shillings, shillings 
and pence, and pence and decimals. 



CONTROL CARD 



OUTPUT FORMAT SPECIFICATIONS 

The position of the sign for sterling out- 
put fields must be specified in columns 



To select the required sterling routines, 
the RPG program needs information regarding 
the input and output formats . This infor- 
mation is entered in four columns of the 
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RPG processor control card. The entries are 
are: 1 for IBM Code, 2 for BSI Code. 



CALCULATION SPECIFICATIONS 

While no additional entries are required in 
this form, the user should keep in mind that 
all calculations are done in pence format. 
This must be considered when defining the 
length of result fields or when using Fac- 
tors 1 and 2 . 



Lengths of Pence-Format Fields 

If a pence-format result field is to be re- 
converted into a sterling output field, the 
highest amount it is permitted to contain is 
2 39, 999, 999, 999.999. This converts to a 
field containing nine pounds positions 
which is the maximum allowed. 

NOTE: In order to avoid the possible loss 
of the high order digit, fields that are 
read in as IBM or BSI sterling always con- 
tain one more position when put out as IBM 
or BSI sterling. For example, the five 
position sterling input field 9919+ (IBM 
format) converts to the five position pence 
field 23999. Since the RPG compiler in 
putting out this field must allow for a five 
position pence field containing up to 99999 
pence (which converts to 416133, IBM for- 
mat) , the field on output will be six posi- 
tions long. 

Pound Sterling Formats 



In addition to the printed output format, 
RPG will support, on the input and output 
fields, two standards for pence and shil- 
ling portions of sterling fields: IBM or 
BSI. Columns 17-20 of the RPG processor 
control card indicate either the IBM or BSI 
formats . The formats for IBM and BSI are 
listed here. 

Column 17 (Sterling-Shilling Field On 
Input) IBM Format. Two positions are allow- 
ed for the shilling option in the input 
fields: 00-19 for to 19 shillings. 



BSI Format. The shilling option in the 
input fields is indicated as listed here: 

0-9 Shillings by a 0-9 punch, 
10 Shillings by a 12-punch, 
11-19 Shillings by an A-I punch. 

Column 18 (Sterling-Pence Field on In- 
put) IBM Format. The pence option on the 
input field is as listed here: 

0-9 Pence by a 0-9 punch, 

10 Pence by an 11-punch, 

11 Pence by a 12-punch. 

BSI Format. The pence option on the in- 
put field is as listed here: 

0-9 Pence by a 0-9 punch, 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 

Columns 19 (Sterling-Shillings Field on 
Output) IBM Format. Two position are 
allowed for the shilling option on the out- 
put field: 

00-19 for 0-19 shillings 

BSI Format. The shilling option on the 
output field is as listed here: 

0-9 Shillings by a 0-9 punch, 
10 Shillings by a 12-punch, 
11-19 Shillings by an A-I punch. 

Column 20 (Sterling-Pence Field on Out - 
put) IBM Format. The pence option on the 
output field is as listed here: 

0-9 Pence by a 0-9 punch, 

10 Pence by an 11-punch, 

11 Pence by a 12-punch. 



BSI Format. The pence option on the 
output field is as listed here: 



0-9 Pence by a 0-9 punch, 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 
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APPENDIX E. 



CONVERSION ROUTINE OPERATION CODES 



The following list shows the relationship 
between conversion routine operation codes 
and how they are specified. 



I- 



I- 



r 



CODE 
RPGCV 



FACTOR 1 



FACTOR 2 



RESULT FIELD 



T 



f- 



SPECIFICATIONS THAT MAY 
FOLLOW THIS ENTRY 



. Reference 

I Name 



i- 



No entry 



Label of the field 
which will contain 
the track address 
of the record . 



i- 



-4- 



KEYCV 



J- 



EXTCV I Reference ' Name or 

I Name | Label of 

• I the user's 

I routine. 

KEYCV | None j None 



Label of the field 
which will contain 
the track address 
of the record . 



KEYCV 






Label of the field 
which will contain 
the key of the record 
to be located . 



If RPGCV has been used, 
the conversion steps 
follow KEYCV . 

If EXTCV has been used, 
any other RPG calculations 
follow . 



ERPGC 



None 



None 



None 



L_ 



.l_ 



.L 



Any other calculations in 
the RPG program. 
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APPENDIX F. SUMMARY OF RPG SPECIFICATION FORMS 



This summary contains a brief column-by- 
column description of each of the six RPG 
specification forms. The purpose of the 
summary is to provide the user with a con- 
cise reference guide. 

The first five items are common to all 
six specification forms. 



Page 1-2 

Enter number of specification page. Assign 
ascending numbers to the pages of each pro- 
gram specification set to collate in the 
following sequence: 

File Description Specifications 
File Extension Specifications 
Line Counter Specifications 
Input Specifications 
Calculation Specifications 
Output -Format Specifications 



Line 3-5 

First two digits of line number are pre- 
printed. Use third position (column 5) to 
identify additional lines to be inserted 
between two preprinted lines. 



Form Type 6 

Contains a preprinted code (F, E, L, I, C, 
or 0) which must be punched into all RPG 
specification cards. 



Comments 7 

Enter an asterisk (*) in each line to be 
used exclusively as a comments line. 



Program Identification 75-80 

Insert any information to identify certain 
cards or portions of an RPG source pro- 
gram. 



FILE DESCRIPTION SPECIFICATIONS 



File Type 15 

Enter one of the letters I, 0, U, or C to 
identify Input, Output, Update, or Combined 
file. 



File Designation 16 

P for primary, S for secondary input or 
combined files. Enter P if only one input 
file or combined file is used. C for 
chained file, R for RAF or T for table file, 
Leave blank for output files. 



End of File 17 

Enter E for each input file or combined 
file that is to be checked to determine 
when the last record has been read and 
processed (LR indicator on) . Leave blank 
if LR is to be turned on when the last rec- 
ord of all input and combined files has 
been read. 



Sequence 18 

Required when Matching Fields is used. A 
if the input file or combined file is in 
ascending sequence, D if it is in descend- 
ing sequence. Leave blank for output files, 
or for input or combined files without 
Matching Fields. 



File Format 

F: Fixed-length records. 

V: Variable-length records, 

Block Length 20-23 

Unblocked 



If the records are unblocked, enter the 
length of a record. If variable-length 
records are used, enter the length of the 
longest record. 



Filename 7-14 

Enter a name for each file used in the pro- 
gram. Names must be left-justif led. 



Blocked 

If the records are blocked, enter the 
length of the largest block. 
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Record Length 24-27 



Extension Code 39 



Used to enter the length of the logical 
records contained in the file. If the file 
contains records that are variable in 
length, enter the length of the largest 
record. 



Indicates that additional information about 
the file is coded on the File Extension 
Specifications sheet, or Line Counter Speci- 
fications sheet. 

Enter an E if the file defined on the 
line is a: 



Mode of Processing 28 

Used to indicate the method or mode by 
which the file is processed. Enter an L 
in this column if a segment of the file is 
to be processed. Enter an R in this col- 
umn if the records are to be processed ran- 
domly. If no entry is made in this column 
for the file, the entire file will be proc- 
essed sequentially. 



Length of Record Address Field 29-30 

If the file is a record-address file, enter 
the number of positions that each entry in 
the RAF occupies. 



Reco rd Address Type 31 

If the records from the file are retrieved 
by using record keys, enter a K in this col- 
umn. If record ID is used to retrieve rec- 
ords, enter I in this column. 



Chaining file 

Table file 

Record Address file (RAF) 



Device 40-46 

Relates a file to a specific type of input 
or output unit. 

If the output file is a printer, enter 
PRINTER. 

If the file is an I/O file and it is 
associated with a card reader or card punch 
unit, enter: 

READ01 IBM 2501 Card Reader 

READ 20 IBM 2520 Card Read -Punch 

READ40 IBM 2540 Card Read-Punch 

READ42 IBM 1442 Card Re ad -Punch 

If the file is an I/O file and it is 

associated with a tape unit enter TAPE. 

If the file is associated with a 2311 
Disk Storage Drive, enter DISKll. 



Type of File Organization 32 

Leave blank if the file is organized se- 
quentially. Enter an I if the file has 
indexed-sequential organization. Enter a 
D if the file has direct organization. 



Overflow Indicator 33-34 



If overflow indicators are used, enter the 
overflow indicator associated with the file. 
A maximum of eight overflow indicators is 
allowed: OA, OB, OC, OD, OE, OF, OG, and 
OV. 



Key Field Starting Location 35-38 

Indicates the location of the key field 
within the data record. Enter the starting 
position of the key field. This entry is 
required for indexed-sequential files. 



Symbolic Device 47-52 



Not used. 



Labels 53 

S Standard Labels. 

E Standard Labels Followed by userr 

standard Labels . 
b No Labels. 

Name of Label Exit 54-59 

Enter the name of the routine to process 
user-standard labels. If the entry is 
shorter than six characters, it must be 
left- justified. 

Extent Exit for DAM 60-65 

Not used. 

Comments 66-74 

Enter any desired comments. An asterisk 
in column 7 must not be used if this type 
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of comments is in a line containing speci- 
fications. 



FILE EXTENSION SPECIFICATIONS 



Number of Table Entries Per Table 36-39 

Enter the exact number of table entries 
(arguments or functions) contained in the 
table. The entry must be right- j us tif ied. 



Record Sequence of the Chaining File 7-8 

Used only for chaining files. Enter the 
same entry that is made for the chaining 
file in Sequence on the Input Specifica- 
tions sheet. 



Length of Table Entry 40-42 

Enter the length of each table entry. The 
maximum size of a numeric entry is 15 char- 
acters, of an alphameric entry 256 charac- 
ters. The entry must be right- justified. 



Number of the Chaining Field 9-10 

Used only for chaining files. Enter the 
identifying number of the chaining field. 
This number is entered in Chaining Field 
of the Input Specifications sheet. 



From Filename 11-18 

Used in conjunction with To Filename to 
identify — for the RPG program — the 
relationship between two files. For ex- 
ample, they provide the name of a chain- 
ing file and the name of the file that is 
chained to it. 



To Filename 19-26 



(See description above) 



Table Name 27-32 

Enter name of table : 

for alternating input format, 
enter name of table to which 
the first entry in each input 
record belongs; 

for non-alternating input format, 
enter name of single table. 

For an RAF or chaining file, specify the 
label of the address conversion routine. 
Table name must consist of 6 characters, 
the first 3 must be TAB, the remaining 3 
may be any alphabetic or numeric characters. 



Number of Table Entries Per Record 33-35 

Enter the maximum number of table entries 
(arguments or functions) that are contain- 
ed in each input record. The entry must 
be right-justified. 



Packed 43 

If the data for the table is in the packed- 
decimal format, enter P in this column. 
Otherwise leave this column blank. 



Decimal Positions 44 

If the data contained in the table is 
numeric, enter the number of decimal posi- 
tions (1-9) . Enter a zero if there are no 
decimal positions. If the field is alpha- 
meric, leave this column blank. 



Sequence 45 

If the data contained in the table is in 
ascending sequence, enter an A; in descend- 
ing sequence, enter a D. Leave blank if 
the data is not in ascending or descending 
sequence or if this specification is not 
required. 



Table Name 46-51 

If alternating arguments and function tables 
are used, enter the second table name. It 
must be of the form TABnnn. The entry must 
be left-justified. 

Length of Table Entry 52-54 

Enter the length of each table entry. The 
maximum size of a numeric entry is 15 char- 
acters; of an alphameric entry 256 charac- 
ters. The entry must be right- justif ied. 



Packed 55 

Enter a P if the data for the table is in 
the packed-decimal format. Otherwise 
leave this column blank. 
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Decimal Positions 56 



AND/OR Relationship 14-16 



If the data contained in the table is nu- 
meric, enter the number of decimal positions 
(1-9) . Enter a zero if there are no deci- 
mal positions. If the field is alphameric, 
leave blank. 



Sequence 57 

If the data contained in the table is in 
ascending sequence, enter an A; in descend- 
ing sequence, enter a D. Leave blank if 
the data is not in ascending or descending 
sequence or if this specification is not 
required. 



Comments 58-74 

Leave columns 58-74 blank, unless comments 
are entered in these columns. 



Enter AND to indicate that the AND relation- 
ship of Record Identification Codes in the 
preceding line is to be continued. Enter 
OR (columns 14 and 15) to indicate that the 
entries in Record Identification Codes of 
this line are to be in an OR relationship 
to the entries in the preceding line. 



Sequence 15-16 

Enter a number, beginning with 01 for each 
file and continuing in consecutive sequence 
to 99, to specify sequence-checking of card 
types. Enter leading zeros. Enter any two 
alphabetic characters to indicate that 
sequence-checking is not required. Lines 
with alphabetic entries in Sequence must 
precede lines with numeric entries. 

Any numeric entry in Sequence requires 
an entry in Number. 



LINE COUNTER SPECIFICATIONS 



Number 17 



Filename 7-14 



Enter the name of the output file. 



Line Number (1) 15-17 

Enter the number of the first line control- 
led by the carriage tape in columns 15-17. 

The remaining specifications (items 
2-12) perform the same function. 



Channel Number (1) 18-19 

Enter the channel number corresponding to 
the line number in columns 15-17. The re- 
maining specifications (items 2-12) per- 
form the same function. 



INPUT SPECIFICATIONS 



Filename 7-14 

Enter a file name for each input or com- 
bined file, one entry per file. Must be 
left-justif ied; it may have up to 8 char- 
acters; first character must be alphabetic; 
remaining characters may be alphabetic or 
numeric; special characters or embedded 
blanks may not be used. 



indicates that one and only one record 
of a specific record type should be 
present in each group. 

indicates that one or more records of a 
specific record type may be present in 
each group. (Used only with numeric 
entry in columns 15-16.) 



Option 18 

indicates that a record of a specific 
control group used need not be present. 
Leave blank if a record must be present, 
or if records are non-sequential. (Used 
only with numeric entry in columns 15- 
16.) 



Resulting Indicator 19-20 

Enter any indicator from 01 through 99 to 
establish a two-digit code for the input- 
record type defined in Record Identification 
Codes . This sets special condition (s) in 
the object program each time the input rec- 
ord is read. 

Record Identification Codes 21-41 

This field is divided into three identical 
sub-fields: columns 21-27, 28-34, and 35- 
41. An AND relationship exists between 
these three sub-fields. 
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Position . Enter the number of input record 
column containing the identifying code. 
Must be right- justified. 

Not . Enter N if the code described must 
not be present in the position specified. 
Otherwise leave blank. 

C/Z/D . Enter D if only the digit portion 
of the specified position is to be checked. 
Enter Z if only the zone portion is to be 
checked. Enter C if both portions are to 
be checked. 

Character. If C/Z/D contains C or D, enter 
any one of the 256 EBCDIC characters. 

If C/Z/D contains Z, enter: &, A through 
I, or to check for a 12-zone; -, J through 
R, or to check for an 11-zone; S-Z for 
O-zone; through 9, or blank to check for 
the absence of zones. 

NOTE: Record Identification Codes may be 
continued in the subsequent specification 
line by means of an AND entry for AND- 
relationships or an OR entry for OR- 
relationships . 



Stacker Select 42 

Enter number of stacker to which input 

cards are to be selected. Leave blank for 

single-stacker devices and for combined 
files. 



NOTE: Each input field that is to be used 
in arithmetic operations must have an entry 
in Decimal Positions . Also use this speci- 
fication for fields that are to be edited 
or zero-suppressed. 



Field Name 53-58 

Enter the name of each field defined in Field 
Location. Field names may be up to 6 char- 
acters in length; left justified. First char- 
acter must be alphabetic; remaining charac- 
ters may be alphabetic or numeric. Special 
characters or embedded blanks may not be 
used. 



Control Level 59-60 

Enter any one of the control-level indica- 
tors Ll through L9 to identify control fields. 
(Ll for lowest level, L9 for highest level of 
control. ) 



Matching Fields or Chaining Fields 61-62 

Enter any one of the codes Ml, M2, or M3 to 
specify record-matching for two input files, 
or to specify sequence-checking for the 
fields of a single input file. 

Enter the codes CI through C9 to specify 
a chaining field. 



Packed 43 

P if input data in packed-decimal format. 
Blank if input data in standard format. 



Field Location 44-51 

This specification describes location of 
fields in input records. 

From. Enter number of input card column 
containing first position of field specified 
in Field Name. 

To. Enter number of input card column 
containing last position of field defined 
in Field Name. Entries must be right- 
justified; leading zeros may be omitted. 



Decimal Positions 52 



Used only for numeric fields. Enter a 
digit through 9 to indicate number of 
decimal positions in input field. Leave 
blank for alphameric fields. 



Field-Record Relation 63-64 

Enter any one of the indicators defined in 
columns 19-20 of the Input Specifications 
to provide field-record relation for iden- 
tical fields contained in different loca- 
tions (OR-relationships) , or for selective 
processing of chaining fields. 



Field Indicators 65-70 



If the field is alphameric, i.e., if column 
52 is blank, only the Zero or Blank speci- 
fication may be used. Enter any one of the 
indicators 01 through 99 or HO through H9, 
as required, in each of the fields. Indi- 
cator in Plus (columns 65 and 66) is turned 
on, if the field specified in columns 53-58 
contains a positive value, except +0. Indi- 
cator in Minus (columns 67 and 68) is turn- 
ed on if the field contains a negative value, 
except -0. Indicator in Zero or Blank (col- 
umns 69 and 70) is turned on if the field 
contains no other character than zero or 
blank. It is also turned on if the field 
is numeric and contains no other character 
than +0 or -0, or when a Blank After out- 
put specification is executed. 
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Sterling Sign Position 71-74 

Used only for programs processing sterling 
currency amounts. If sign of Sterling 
field is in normal position, enter S in 
Column 74. If sign is not in normal posi- 
tion, enter the position in the record that 
contains the sign. Leave blank in all 
other RPG programs. 



CALCULATION SPECIFICATIONS 



Control Level 7-8 

Enter one of control level indicators Ll 
through L9, LO, or LR to specify that the 
calculation contained in this line is to be 
performed at total time. Leave blank if 
calculation is to be performed at detail 
time. 



alphameric ; left-justified 
must be enclosed in apostrophe 
symbols ( ' ) , maximum length 
8 characters, any one of the 
256 EBCDIC characters may be 
used. 

Apostrophe symbols re- 
quired within constants must 
be represented as two consec- 
utive apostrophe symbols. 



Operation 28-32 

Enter one of the RPG operation codes. An 
entry in this specification is required in 
each line, except in a comments line de- 
fined by an asterisk in column 7. Entries 
must be left-justified. 



Factor 2 33-42 



Indicators 9-17 

Enter one to three indicators to establish 
conditions controlling calculation speci- 
fied in the line. Any of the indicators 
01 through 99, Ll through L9, LO, LR, MR, 
or any halt or overflow indicator may be 
used. Columns 9, 12, and 15 may contain 
blank or N. 

NOTE: If there is more than one indicator 
in a line, RPG assumes an AND-relationship 
between the individual indicators. 



Factor 1 18-27 



Field name — left- justified, maximum 

length 6 characters. Do not 
use special characters or 
embedded blanks. First char- 
acter must be alphabetic. 
Must be defined in Input 
Specifications or as a result 
field in another calculation 
specification. 

Literal — numeric : left-justified, 
maximum length ten charac- 
ters, characters must be 
numeric (0 through 9) , one 
decimal symbol and/or one 
sign (plus or minus) allowed. 
If a sign is present, it must 
be in the first position of 
the field. 



Enter field name or literal to be used in 
the specified operation. (For a definition 
of field name and literal, see Factor 1.) 
Entries must be left-justified. 



Result Field 43-48 

Enter field name to designate location in 
storage into which result of pertinent 
operation is to be placed. First character 
of field name must be alphabetic; remain- 
ing characters may be alphabetic or numeric, 
cannot contain special characters or embed- 
ded blanks. Must be left-justified. 



Field Length 49-51 

Enter number of storage positions to be 
reserved for result field on this line. 
Maximum length of numeric result fields is 
15 digits. Maximum length of alphameric 
result fields is 256 characters. Must be 
right-justif ied. May be left blank, if 
length of result field specified in this 
line is defined in a previous line of cal- 
culation specifications, or in input speci- 
fications. 



Decimal Positions 52 



Enter number of decimal positions (0 
through 9) to be reserved in result field. 
Required for all numeric* result fields 
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used with arithmetic operations. Must be 
blank if the result field is alphameric. 

NOTE: The number of decimal positions is 
included in Field Length specification in 
columns 49-51. E.g., if a number of decimal 
positions specified is 7, the maximum num- 
ber of positions to the left of the decimal 
symbol is 15 - 7 = 8. (The maximum length 
of a numeric field is 15.) 



NOTE: Headings High , Low, Equal do not 
apply to indicators specified in conjunc- 
tion with SETOF or SETON operations. 



Comments 60 - 74 

Enter any desired comments. An asterisk in 
column 7 must not be used if this type of 
comment is in a line containing specifica- 
tions. 



Half Adjust 53 

Enter H to specify half-adjustment of result 
field. Must be blank if result field is 
alphameric. 



Resulting Indicators 54 - 59 

Any one of the indicators 01 through 99, HO 
through H9 and LI through L9 may be used 
for this specification. 

Arithmetic Operations : enter up to 3 indi- 
cators to be turned on whenever the result 
of an arithmetic operation is positive 
( Plus , columns 54 and 55) , or negative 
( Minus , columns 56 and 57) , or zero ( Zero , 
columns 58 and 59) . 

Compare Operations: enter up to 3 indica- 
tors to be turned on whenever result of 
COMP operation is Factor 1 > Factor 2 ( High, 
columns 54 and 55) , or Factor 1< Factor 2 
( Low , columns 56 and 57) , or Factor 1 = 
Factor 2 ( Equal , columns 58 and 59) . 

LQKUP Operations : enter one or two indi- 
cators in High, or Low, or Equal , or High 
and Equal , or Low and Equal . (This defines 
type of entry to be located by means of 
LOKUP operation.) 

TESTZ Operations : enter up to 3 indicators 
to be turned on whenever a 12-zone ( High , 
columns 54 and 55) , or an 11-zone ( Low , 
columns 56 and 57) , or any other zone or 
no zone ( Equal , columns 58 and 59) is de- 
tected in the field specified in Result 
Field of this line. 

SETOF, SETON Operations : enter up to 3 
indicators to be turned on (SETON) or off 
(SETOF) . If more than 3 indicators are to 
be turned on (or off) , specify another 
SETON (SETOF) statement in subsequent line. 
Any RPG indicator can be used, except LO 
and 00. 



OUTPUT-FORMAT SPECIFICATIONS 



Filename 7-14 

Enter name of each output file. Names must 
be left-justified. 



AND/OR Relationships 14-16 

Enter AND for records in an AND relation- 
ship. Enter OR for records in an OR 
relationship (Columns 14 and 15) . 



Type 15 

H — identifies heading line 

D — identifies detail time output 

T — identifies total time output 



Stacker Select 16 

Enter number of stacker to which cards are 
to be selected. Leave blank for single- 
stacker devices. 



Space 17 - 18 

NOTE: At least one entry is required in 
columns 17-22 if the line is to be printed. 



Before . Enter 0, 1, 2, or 3 to specify 0, 
1, 2, or 3 lines spacing before printing. 
Leave blank if no space before printing is 
required. 

After . Enter 0, 1, 2, or 3 to specify 0, 
1, 2, or 3 lines spacing after printing. 
Enter zero to specify no space after 
printing. 
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Skip 19-22 

Before . Enter any number from 01 through 
12 to specify skipping before printing to 
channel 01 through 12 of the carriage con- 
trol tape. Leave blank for no skip before 
printing. 

After . Enter any number from 01 through 
12 to specify skipping after printing 01 
through 12 of the carriage control tape. 



Blank After 39 

Enter B to reset alphameric output fields 
to blanks or numeric output fields to 
zeros. Reset occurs after execution of the 
specified output operation. 



End Position in Output Record 40 - 43 

Enter position in output record to contain 
rightmost character of output field. 



Output Indicators 23 - 31 



Packed Field 44 



Enter up to three RPG indicators to iden- 
tify files or to describe fields. Columns 
23, 26, 29 must contain blank or the 
letter N. 



Enter P if output data in packed-decimal 
format. Leave blank if data in standard 
format. 

Constant or Edit Word 45 - 70 



Field Name 32 - 37 

Enter any field name defined in either 
input specifications or calculation speci- 
fications. Leave blank for constants spec- 
ified in Constant or Edit Word . Use 
field name PAGE to cause automatic page 
numbering. 



Zero Suppress 38 

Enter Z if leading zeros of a numeric field 
are to be suppressed and the sign is to be 
stripped from the rightmost position. Leave 
blank if leading zeros are not suppressed, 
or if field specified in Field Name is 
alphameric or if line contains a constant 
or an edit word. 



Constant . Enter any required constant. 
Must be enclosed in apostrophe symbols. 
May consist of any of the 256 EBCDIC char- 
acters. Maximum length is 24 characters. 

Apostrophe symbols required within con- 
stants must be represented as two consecu- 
tive apostrophe symbols. 

Edit Word . Enter any edit word to specify 
editing with respect to punctuation, print- 
ing of dollar symbols, sign status, zero 
suppression, etc. Edit words must be en- 
closed in apostrophe symbols. 

Sterling Sign Position 71 - 74 . 

Provided for programs processing sterling 
currency amounts. Leave blank for all other 
RPG programs. 
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f IESOOOI NO ERROR MFSSAGE ASSIGNED FOR THIS NOTF. 

IES001I FILE TYPF (COLUMN 15) IS INVALID. SPECIFICATION IS NOT PROCESSED. 

IESOO?I INVALID ENTRY IN COLUMNS ?<3, 31, PR 32. SPECIFICATION IS NOT PROCESSED. 

IES003I RECORD ADDRESS FIELD (COLUMNS 2^-30) HAS INVALID LENGTH, IS MISSING OR IS NOT 
RIGHT-JUSTIFIED. FNTRY OF 03 IS ASSUMED. 

IES004I MORE THAN ONE RECORD ADDRESS FILE IS PRFSENT. SUCCEEDING ONES ARE NOT 
PROCESSED. 

IES005I EXTENSION CODE (COLUMN 39) IS INVALID. ENTRY OF L IS ASSUMED. 

IES006I INPUT FILF DESIGNATION (COLUMN 16) IS INVALID OR MISSING. ENTRY OF S IS 

ASSUMED. 

IES007I OVERFLOW INDICATOR (COLUMN 33) IS NOT 0. EMTRY OF IS ASSUMED. 

IES008I OVERFLOW INDICATOR (COLUMNS 33-34) IS INVALID. ENTRY OF OA IS ASSUMED. 

IES009I MORE THAN ONF PRIMARY FILE IS S°ECIFTFD. FILE IS ASSUMED TO BE A SECONDARY 
FILE. 

IES010I MODE OF PROCESSING (COLUMN 28) IS INVALID. ENTRY OF R IS ASSUMED. 

IES011I FIXED FORMAT IS SPECIFIED, YFT 3L0CK LFNGTH IS NOT A MULTIPLE OF RECORD LENGTH. 
BLOCK LENGTH IS INCRFASFD TO NEXT HIGHEST MULTIPLE. 

IES012I TYPE OF FILE ORGANIZATION (COLUMN 32) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

IES013I END-OF-FILE CODE (COLUMN 17) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

IES014I SEQUENCE (COLUMN 18) IS INVALID. FNTPY OF BLANK IS ASSUMED. 

IES015I MODF OF PROCESSING (COLUMN 28) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

IES016I RECORD ADDRFSS TYPE (COLUMN 31) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

IES017I EXTENSION CODE (COLUMN 39) IS INVALID. ENTRY OF E IS ASSUMED. 

IES018I FILE FORMAT (COLUMN 19) IS INVALID. ENTRY OF F IS ASSUMED FOR 
INDEXES-SEQUENTIAL. OTHERWISE FNTRY OF V IS ASSUMED. 

IES019I BLOCK LENGTH (COLUMNS 20-23) IS MISSING, INVALID, LESS THAN THE RECORD LENGTH, 
OP NOT PIGHT-JUSTIFIFD. BLOCK LENGTH IS ASSUMED EQUAL TO RECORD LENGTH. 

IES020I RECORD LFNGTH (COLUMNS 24-27) IS MISSING, INVALID, OR NOT R I GHT- JUST I FI ED. 

RECORD LENGTH OF 0080 IS ASSUMED. 

IES021I FILENAME (COLUMNS 7-14) IS MISSING, INVALID, OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

IES022I OUTPUT FILE DESIGNATION (COLUMN 16) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

IES023I PROGRAM EXCEEDS LIMIT OF TEN VALID FILE NAMES. ADDITIONAL FILE DESCRIPTION 
SPECIFICATIONS WILL BE TREATED AS COMMENTS. 

IES024I KEY FIELD STARTING LOCATION (COLUMNS 35-38) IS INVALID, NOT RIGHT-JUSTIFIED, OR 
NOT LESS THAN RECORD LENGTH. ENTRY OF 0001 IS ASSUMED. 

IES025I DEVICE (COLUMNS 40-46) IS INVALID. SPECIFICATION IS NOT PROCESSED. 

IES026I NO FRROR MESSAGE ASSIGNED FOR THIS MOTE. 

IES027I 'LABELS' (COLUMN 53) IS INVALID. ENTRY OF S IS ASSUMED. 

IES028I NAME OF LABEL EXIT (COLUMNS 54-59) IS MISSING, INVALID, OR NOT LEFT- JUSTIF IED. 
SPECIFICATION IS MOT PROCESSED. 

IES029I NO ERROR MFSSAGE ASSIGNED FOR THIS NOTE. 

IES030I MORE THAN ONE RECORD ADDRESS FILE IS SPECIFIED ON FILE EXTENSION SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 

IFS031I' 'FROM FILENAME (COLUMNS 11-18) IS NOT SPECIFIED AS ON FILE DESCRIPTION 
SPFCIFICATION. SPECIFICATION IS NOT PROCESSED. 

IES032I EXTENSION CODE (COLUMN 39) IS NOT E. SPECIFICATION IS NOT PROCESSED. 
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IES033I LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) EXCEEDS 256 CHARACTERS FOR AN 
ALPHAMERIC FIELD. ENTRY OF 256 IS ASSUMED. 

IES034I CHAINING FIELD (COLUMNS 9-10) IS MISSING, INVALIO, OR NOT RIGHT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

IES035I NUMBER OF CONVERSION ROUTINES AND TABLE NAMES EXCEEDS ALLOCATED CORE STORAGE. 
ADDITIONAL SPECIFICATIONS CONTAINING CONVERSION ROUTINES OR TABLE NAMES WILL 
NOT BE PROCESSED. 

IES036I 'TO FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS ON CORRESPONDING FILE 

DESCRIPTION SPECIFICATION, OR FILE DESCRIPTION SPECIFICATION WAS NOT PROCESSED. 
SPECIFICATION IS NOT PROCESSED. 

IES037I 'TO FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS A CHAINED FILE ON FILE 
DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

IES038I LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) EXCEEDS 15 DIGITS FOR A NUMERIC 
FIELO. ENTRY OF 15 IS ASSUMED. 

IES039I CONVERSION ROUTINE (COLUMNS 27-32) IS MISSING, INVALID, OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

IES040I *T0 FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS A PRIMARY OR SECONDARY FILE OR 
•MODE OF PROCESSING* IS NOT BETWEEN LIMITS OR RANDOM. SPECIFICATION IS NOT 
PROCESSED. 

IES041I TABLE SEQUENCE (COLUMNS 45 OR 57) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

IES042I TABLE NAME (COLUMNS 27-32 OR 46-51) IS MULTI-DEFINED. SPECIFICATION IS NOT 
PROCESSED. 

IES043I *T0 FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS ON FILE DESCRIPTION 
SPECIFICATION. ENTRY OF BLANKS IS ASSUMED. 

IES044I 'TO FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS AN OUTPUT FILE ON FILE 
DESCRIPTION SPECIFICATION. ENTRY OF BLANKS IS ASSUMED. 

IES045I TABLE NAME (COLUMNS 27-32 OR 46-51) IS MISSING OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

IES046I LETTERS 'TAB* ARE MISSING IN TABLE NAME (COLUMNS 27-29 OR 46-48). ENTRY OF 
•TAB* IS ASSUMED. 

IES047I NUMBER OF TABLE ENTRIES PER RECORD (COLUMNS 33-35) IS MISSING, INVALID OR NOT 
RIGHT- JUSTIFIED. ENTRY OF 008 IS ASSUMED. 

IES048I NUMBER OF TABLE ENTRIES PER TABLE (COLUMNS 36-39) IS MISSING, INVALID OR NOT 
RIGHT-JUSTIFIED. ENTRY OF 0150 IS ASSUMED. 

IES049I 'LENGTH OF TABLE* ENTRY (COLUMNS 40-42 OR 52-54) IS MISSING, INVALID, OR NOT 
RIGHT-JUSTIFIED. ENTRY OF 010 IS ASSUMED. 

IES050I 'PACKEO* (COLUMN 43 OR 55) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

IES051I 'DECIMAL POSITIONS* (COLUMN 44 OR 56) IS INVALID. ENTRY OF ZERO IS ASSUMED. 

IES052I RECORD SEQUENCE OF THE CHAINING FILE (COLUMNS 7-8) IS INVALID. 80TH POSITIONS 
MUST BE EITHER NUMERIC OR ALPHABETIC. SPECIFICATION IS NOT PROCESSED. 

IES053I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES054I MAXIMUM NUMBER OF FILE EXTENSION SPECIFICATIONS CONTAINING TABLES HAS BEEN 

EXCEEDED. ADDITIONAL TABLE FILE EXTENSION SPECIFICATIONS WILL BE TREATED AS 
COMMENTS. 

IES055I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES056I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES057I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES058I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES059J NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES060I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES061I WARNING - MULTI-FILE PROGRAM (WITH PRIMARY AND SECONDARY FILES) IS SPECIFIED 
WITHOUT MATCHING FIELDS FOR THE PRIMARY FILE. 
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IES062I WARNING - MULTI-FILE PROGRAM (WITH PRIMARY AND SECONDARY FILES) IS SPECIFIED 
WITHOUT MATCHING FIELDS FOR THE SECONDARY FILE(S). 

IES063I THE SUM OF THE LENGTHS OF THE MATCHING FIELDS FOR THE PRIMARY FILE DOES NOT 
EQUAL THAT OF EACH SECONDARY FILE. EXECUTION IS DELETED. 

IES064I THE SUM OF THE LENGTHS OF THE MATCHING FIELDS IS NOT CONSTANT IN EACH RECORD 
WHICH SPECIFIED MATCHING FIELDS FOR A FILE. EXECUTION IS DELETED. 

IES065I WARNING- PAGE/LINE ENTRY IS OUT OF SEQUENCE. 

IES066I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES067I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES068I NO ERROR MESSAGE ASSIGNED FOR THIS NOTF. 

IES069I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES070I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES071I DETAIL CALCULATION SPECIFICATION FOLLOWS A TOTAL CALCULATION SPECIFICATION. 
DETAIL SPECIFICATION IS NOT PROCESSED. 

IES072I UNDEFINED TABLE SPECIFIED IN LOKUP OPERATION. SPECIFICATION IS NOT PROCESSED. 

IES073I KEYCV IS VALID ONLY WHFN PRECEDED BY RPGC.V OR EXTCV. SPECIFICATION IS NOT 
PROCESSED. 

IES074I NO ERROR MESSAGE ASSIGNED FOR THIS NOTF. 

IFS075I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES076I NO ERROR MESSAGE ASSIGNED FOP THIS NOTF. 

IES077I THERE ARE NO VALID INPUT SPECIFICATIONS IN THIS PROGRAM. EXECUTION IS DELETED. 

IES078I DECIMAL POSITION IS INVALID. ENTRY OF ZERO IS ASSUMED FOR NUMERIC FIELD. ENTRY 
OF BLANK IS ASSUMED FOR ALPHAMERIC FIELD. 

IES079I CONVERSION NAME CANNOT BE USED TO DEFINE A FIELD. SPECIFICATION IS NOT 
PROCESSED. 

IES080I FIELD INDICATOR IS SPFCIFIED BUT IS NOT VALID. INDICATOR IS NOT PROCESSED. 

IES081I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES082I NO ERROR MESSAGE ASSIGNED FOR THIS NOTF. 

IES083I FIFLD LENGTH IS IMPROPERLY SPECIFIED OR IS NOT SPECIFIED. ENTRY OF ZERO IS 

ASSUMED FOR INVALID CHARACTER. WHEN REQUIRED LENGTH IS NOT SPECIFIED, FNTRY OF 
3 IS ASSUMED FOR EXTCV AND RPGCV. ENTRY OF 4 IS ASSUMED FOR ALL OTHER 
OPERATION CODES. 

IES084I NO FRROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES085I RESULT FIELD LENGTH (COLUMNS 49-51) IS GREATER THAN ALLOWED. A LFNGTH OF 256 IS 
ASSUMED FOR AN ALPHAMERIC FIELD. A LENGTH OF 15 IS ASSUMED FOR A NUMERIC 
FIELD. 

IES086I OPERATION CODE (COLUMNS 28-32) IS INVALID OR MISSING. SPECIFICATION IS NOT 
PROCESSED. 

IES087I REQUIRED ENTRY IN FACTOR 1 (COLUMNS 18-27) IS MISSING OR INVALID. SPECIFICATION 
IS NOT PROCESSED. 

IES088I REQUIRED ENTRY IN FACTOR 2 (COLUMNS 33-42) IS MISSING OR INVALID. SPECIFICATION 
IS NOT PROCESSED. 

IES089I REQUIRED ENTRY IN RESULT FIELD (COLUMNS 43-48) IS MISSING OR INVALID. 
SPECIFICATION IS NOT PROCESSED. 

IES090I FORM TYPE (COLUMN 6) IS INVALID. SPECIFICATION IS NOT PROCESSFD. 

IES091I 'NOT 1 (COLUMNS 9, 12, OR 15) 1! S NOT N OR BLANK. ENTRY OF N IS ASSUMED. 

IES092I CONTROL LEVEL IS IMPROPERLY SPECIFIED. FNTRY OF LO IS ASSUMED. 

IES093I RESULTING INDICATOR IS INVALID. INDICATOR IS NOT PROCESSED. 
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IES094I INDICATOR LO IS SPECIFIED AS A FIELD INDICATOR, BUT IS NOT ALLOWED. INDICATOR 
IS IGNORED. 

IES095I FIELD-RECORD RELATION (COLUMNS 63-64) IS INVALID. ENTRY OF 99 IS ASSUMED. 

IES096I 'HALF ADJUST* ENTRY (COLUMN 53) IS INVALID. ENTRY OF H IS ASSUMED. 

IES097I FIELD NAME IS IMPROPERLY USED. SPECIFICATION IS NOT PROCESSED. 

IES098I INDICATOR (COLUMNS 10-11, 13-14, OR 16-17) IS INVALID. ENTRY OF 00 IS ASSUMED. 

IES099I REQUIRED RESULTING INDICATOR (COLUMNS 54-55, 56-57, OR 58-59) IS NOT SPECIFIED. 
SPECIFICATION IS NOT PROCESSED. 

IES100I »MVR» DDES NOT FOLLOW 'DIV, OR FOLLOWS A «DIV» WITH HALF ADJUST SPECIFIED. 
SPECIFICATION IS NOT PROCESSED. 

IES101I «FROM» (COLUMNS 44-47), »T0' (COLUMNS 48-51) OR RECORD IDENTIFICATION POSITION 
(COLUMNS 21-24, 28-31, OR 35-38) IS ZERO. ENTRY OF 1 IS ASSUMED. 

IES102I RESULT FIELD OF RPGCV OR EXTCV DOES NOT HAVE LENGTH OF 3. ENTRY OF 3 IS 
ASSUMED. 

IES103I IF IBM SHILLING IS SPECIFIED, STERLING INPUT FIELD MUST HAVE MORE THAN THREE 

NON-DECIMAL POSITIONS. IF BSI SHILLING IS SPECIFIED, STERLING INPUT FIELD MUST 
HAVE MORE THAN TWO NON-DECIMAL POSITIONS. FIELD IS INITIALIZED TO ZERO AND NO 
INPUT IS ACCEPTED. 

IES104I WARNING - INDICATOR 00 SHOULD BF USED ONLY IN OUTPUT SPECIFICATIONS. 

IES105I FIELDS USED IN AN ALPHAMERIC COMPARE MUST BE EQUAL IN LENGTH OR MUST BE LESS 
THAN OR EQUAL TO 200 BYTES. 

IES106I FIELD LENGTHS ARE INVALID FOR THIS OPERATION. SPECIFICATION IS NOT PROCESSED. 

IES107I PLUS AND/OR MINUS RESULTING INDICATORS (COLUMNS 54-55 OR 56-57) ARE NOT ALLOWED 
FOR TESTING ALPHAMERIC FIELDS. INDICATORS ARE IGNORED. 

IES108I FIELD TYPE IS INVALID FOR THIS OPERATION. SPECIFICATION IS NOT PROCESSED. 

[ES109I NO ERROR MESSAGE ASSIGNED FDR THIS NOTE. 

IES110I FORM TYPE (COLUMN 6) DOES NOT CONTAIN I, C, OR 0, AND COLUMN 7 IS NOT AN 
ASTERISK. SPECIFICATION IS NOT PROCESSED. 

IES111I UNDEFINED FILENAME. SPECIFICATION IS NOT PROCESSED. 

IES112I FILENAME HAS BEEN PREVIOUSLY REFERENCED OR DEFINED AS A TABLE OR OUTPUT FILE 
TYPE. SPECIFICATION IS NOT PROCFSSED. 

IES113I 'AND* SPECIFICATION (COLUMNS 14-16) IS FIRST INPUT SPECIFICATION OR FDLLOWS 

FIELD DESCRIPTION SPECIFICATION, INVALID RECORD IDENTIFICATION, OR INVALID FILE 
NAME. SPECIFICATION IS NOT PROCESSED. 

IES114I THERE ARE NO RECORD IDENTIFICATION CODES .(COLUMNS 21-41) IN THE CARD BEFORE AN 
•AND" CARD. SPECIFICATION IS NOT PROCESSED. 

IES115I 'OR' SPECIFICATION (COLUMNS 14-15) IS FIRST INPUT SPECIFICATION OR FOLLOWS FIELD 
DESCRIPTION SPECIFICATION, INVALID RECORD IDENTIFICATION, OR INVALID FILE MAMF. 
SPECIFICATION IS NOT PROCESSED. 

IES116I RECORD IDENTIFICATION SPECIFICATION FOLLOWS INVALID FILE TYPE SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 

IES117I FIELD NAME CONTAINS EMBEDDED BLANK. SPECIFICATION IS NOT PROCESSED. 

IES118I FILE AND FIELD NAMES ARE BOTH PRESENT ON THE SAME SPECIFICATION. FILENAME IS 
ASSUMED. 

IES119I SEQUENCE (COLUMNS 15-16) IS BLANK. ENTRY OF AA I S ASSUMED. 

IES120I ALPHAMERIC SEQUENCE FOUND AFTER NUMERIC SEQUENCE. NUMERIC SEQUENCE 1 GREATER 
THAN PREVIOUS NUMERIC SEQUENCE IS ASSUMED. 

IES121I NUMERIC SEQUENCE (COLUMNS 15-16) IS INVALID. ENTRIES MUST BEGIN WITH 01 AND BE 
CONSECUTIVE IN ASCENDING ORDER. NUMERIC SEQUENCE 1 GREATER THAN PREVIOUS VALID 
NUMERIC SEQUENCE IS ASSUMED. 

IES122I NUMBER (COLUMN 17) IS NOT N OR I, ANO NUMERIC SEQUENCE IS FOUND. ENTRY OF N IS 
ASSUMED. 
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IES123I 
IES124I 

IES125I 
IES126I 

IES127I 

IES128I 
IES129I 
IES130I 

IES131I 

IES132I 

IES133I 
IES134I 

IES135I 

IES136I 

IES137I 
IES138I 

IES139I 

IES140I 
IES141I 

IES142I 

IES143I 

IES144I 
IES145I 

IES146I 

IES147I 

IES148I 

IES149I 

IES150I 

f ESI 511 



OPTION (COLUMN 18) IS NOT OR BLANK. ENTRY OF IS ASSUMED. 

RESULTING INDICATOR (COLUMNS 19-20) IS BLANK OR INVALID. INDICATOR OF 99 IS 
ASSUMED. 

STACKER SELECT (COLUMN 42) IS NOT BLANK OR NUMERIC. ENTRY OF BLANK IS ASSUMED. 

•POSITION* (COLUMNS 21-24, 28-31, OR 35-38) CONTAINS EMBEDDED BLANK. ENTRY OF 
ZERO IS ASSUMED. 

•POSITION' (COLUMNS 21-24, 28-31, OR 35-38) CONTAINS NON-NUMERIC CHARACTER. 
ENTRY OF ZERO IS ASSUMED. 

•NOT' (COLUMNS 25, 32, OR 39) IS NOT BLANK OR N. ENTRY OF N IS ASSUMED. 

'C/Z/D' (COLUMNS 26, 33, OR 40) IS NOT C, Z, OR D. ENTRY OF C IS ASSUMED. 

FIELD DESCRIPTION SPECIFICATION IS FIRST INPUT SPECIFICATION OR FOLLOWS AN 
INVALID RECORD IDENTIFICATION OR FILE NAME. SPECIFICATION IS NOT PROCESSED. 

FIELD NAME (COLUMNS 53-58) IS MISSING OR NOT LEFT-JUSTIFIED. SPECIFICATION IS 
NOT PROCESSED. 



FIELD NAME (COLUMNS 53-58) BEGINS WITH A NUMERIC CHARACTER. 
NOT PROCESSED. 



SPECIFICATION IS 



•FROM' (COLUMNS 44-47) OR 'TO* (COLUMNS 48-51) IS RLANK. ENTRY OF 1 IS ASSUMED. 

•FROM' (COLUMNS 44-47) OR 'TO' (COLUMNS 48-51) CONTAINS EMBEDOED BLANK. ENTRY 
OF ZERO IS ASSUMED FOR EACH BLANK. 

•FROM' (COLUMNS 44-47) OR 'TO' (COLUMNS 48-51) CONTAINS NON-NUMERIC CHARACTER. 
ENTRY OF ZERO IS ASSUMED. 

'FROM' (COLUMNS 44-47) SHOULD BE LESS THAN OR EQUAL TO 'TO' (COLUMNS 48-51). 
FIELD LENGTH OF 1 IS ASSUMED. 'TO' IS ASSUMED EQUAL TO 'FROM'. 

DECIMAL POSITION (COLUMN 52) IS NOT NUMERIC. ENTRY OF ZERO IS ASSUMED. 

EITHER AN UNPACKED NUMERIC FIELD IS MORE THAN 15 BYTES LONG, OR A PACKED NUMERIC 
FIELD IS GREATER THAN 8 BYTES LONG. LENGTH OF 15 IS ASSUMED FOR UNPACKED 
NUMERIC FIELD. LENGTH OF 8 IS ASSUMED FOR PACKED NUMERIC FIELD. 

STERLING FIELO IS INDICATED WITH MORE THAN THREE DECIMAL POSITIONS. THE DECIMAL 
PORTION OF THE FIELD IS TRUNCATED TO THREE POSITIONS. THE 'TO' POSITION OF THE 
FIELD IS ALTERED TO ALLOW FOR THIS TRUNCATION. 

PACKED INDICATOR (COLUMN 43) IS NEITHER BLANK NOR P. ENTRY OF P IS ASSUMED. 

CONTROL LEVEL DOES NOT START WITH L IN COLUMN 59 (L IS ASSUMED), OR COLUMN 60 IS 
NOT NUMERIC (I IS ASSUMED). 

MATCHING/CHAINING FIELD (COLUMN 61) IS NOT C OR M (M IS ASSUMED), OR COLUMN 62 
IS NOT NUMERIC II IS ASSUMED). 

MATCHING VALUE (COLUMN 62) IS INVALID. ENTRY OF 3 IS ASSUMED IF COLUMN IS 
NUMERIC. ENTRY OF 1 IS ASSUMED IF COLUMN IS NON-NUMERIC. 

ALPHAMERIC FIELD LENGTH IS GREATER THAN 256. LENGTH OF 256 IS ASSUMED. 

NUMERIC RESULTING INDICATOR (COLUMNS 65-66 OR 67-68) IS SPECIFIED FOR AN 
ALPHAMERIC FIELD. INDICATOR IS SET OFF. 

STERLING SIGN POSITION (COLUMNS 71-74) IS INVALID. NORMAL POSITION FOR SIGN IS 
ASSUMED. 

STERLING SPECIFIED IN COLUMNS 71-74, BUT NOT SPECIFIED ON PROCESSOR CONTROL 
CARD. ENTRY OF BLANKS IS ASSUMED. 

THE CALCULATED LENGTH OF THE STERLING FIELD IS GREATER THAN 15. LENGTH OF 15 IS 
ASSUMED. 

FIELD EXTENDS BEYOND RECORD LENGTH. FIELD IS ASSUMED TO END IN LAST CHARACTER 
POSITION OF RECORD. 

COLUMNS 16-18 OF 'OR' TYPE INPUT SPECIFICATION MUST BE BLANK. ENTRY OF BLANK IS 
ASSUMED. 

COLUMNS 17-20 AND 42 OF 'AND' TYPE INPUT SPECIFICATION MUST BE BLANK. ENTRY OF 
BLANK IS ASSUMED. 
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IES152I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES153I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES154I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES155I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES156I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES157I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES158I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES159I INAPPROPRIATE OUTPUT FIELD. SPECIFICATION IS NOT PROCESSED. 

IES160I FILENAME (COLUMNS 7-14) IS MISSING, OR RECORD TYPE (COLUMN 15) IS IN WRONG 
ORDER. SPECIFICATION IS NOT PROCESSED. 

IES161I CORRESPONDING FILENAME (COLUMNS 7-14) CANNOT BE DETERMINED. SPECIFICATION IS 
NOT PROCESSED. 

IES162I 'STACKER SELECT' (COLUMN 16) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

IES163I 'SPACE BEFORE' (COLUMN 17) IS INVALID. ENTRY OF 1 IS ASSUMED. 

IES164I 'SPACE AFTER' (COLUMN 18) IS INVALID. ENTRY OF 1 IS ASSUMED. 

IES165I 'SKIP BEFORE' (COLUMNS 19-20) IS INVALID. ENTRY OF 01 IS ASSUMED. 

IES16&I 'SKIP AFTER' (COLUMNS 21-22) IS INVALID. ENTRY OF 01 IS ASSUMED. 

IES167I RECORD TYPE (COLUMN 15) IS NOT H, D, OR T. SPECIFICATION IS NOT PROCESSED. 

IES168I COLUMNS 17-22 MUST BE BLANK FOR 'AND' TYPE OUTPUT SPECIFICATIONS. ENTRY OF 
BLANK IS ASSUMED. 

IES169I COLUMNS 7-13 MUST BE BLANK FOR 'AND' OR 'OR' TYPE OUTPUT SPECIFICATIONS. ENTRY 
OF BLANK IS ASSUMED. 

IES170I CORRESPONDING RECORD IDENTIFICATION SPECIFICATION IS MISSING OR INVALID. 
SPECIFICATION IS NOT PROCESSED. 

IES171I 'ZERO SUPPRESS' (COLUMN 38) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

IES172I 'PACKED FIELD' (COIUMN 44) IS INVALID. ENTRY OF BLANK IS ASSUMPn. 

IES173I FIELD NAME (COLUMNS 32-37) IS NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT 
PROCESSED. 

IES174I 'END POSITION' (COLUMNS 40-43) IS INVALID OR MISSING. SPECIFICATION IS NOT 
PROCESSED. 

IES175I LEAOING OR CLOSING APOSTROPHE I • ) IN EDIT WORD IS NOT CORRECT. ENTRY OF BLANKS 
IN COLUMNS 45-70 IS ASSUMED. 

IES176I 'BLANK AFTER' (COLUMN 39) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

IES177I PUNCI. AND PRINT FUNCTIONS ARE SPECIFIED FOR THE SAME FILE. ENTRY OF BLANKS IS 
ASSUMED FOR COLUMNS 17-22. 

IES178I ZERO SUPPRESSION (COLUMN 38) MAY NOT BE SPECIFIED FOR CONSTANTS OR EDIT WORDS. 
ENTRY OF BLANK IN COLUMN 38 IS ASSUMED. 

IES179I FIELD NAME (COLUMNS 32-37) IS UNDEFINED. SPECIFICATION IS NOT PROCESSED. 

IES180I WARNING - 'BLANK AFTER* (COLUMN 39) IS SPECIFIED FOR CONSTANT. ALL IDENTICAL 
CONSTANTS WILL BE BLANKED. 

IES181I CONSTANT (COLUMNS 45-70) IS NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED* 

TES182I EDIT WORD (COLUMNS 45-70) IS NOT LEFT-JUSTIFIED. ENTRY OF BLANKS IN COLUMNS 
45-70 IS ASSUMED. 

IES183I 'PACKED FIELD' (COLUMN 44) MAY NOT BE SPECIFIED WITH CONSTANTt EDIT WORD OR 
STERLING ENTRY. ENTRY OF BLANK IN COLUMN 44 IS ASSUMED. 

IES184I FILENAME (COLUMNS 7-14) IS NOT LEFT- JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 
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IES185I FILENAME (COLUMNS 7-14) CONTAINS NON-ALPHABETIC CHARACTER IN FIRST POSITION. 
SPECIFICATION IS NOT PROCESSED. 

IES186I EDIT WORD (COLUMNS 45-70) CONTAINS NO DIGIT POSITIONS OR MORE THAN FIFTEEN 
(SIXTEEN FOR STERLING). ENTRY OF BLANKS IN COLUMNS 45-70 IS ASSUMED. 

IES187I LEADING OR CLOSING APOSTROPHF (') IN CONSTANT IS NOT CORRECT. SPECIFICATION IS 
NOT PROCESSED. 

IES188I 'AND* OR 'OR* FOLLOWING A FIELD NAME SPECIFICATION OR AS FIRST OUTPUT 
SPECIFICATION IS INVALID. SPECIFICATION IS NOT PROCESSED. 

IES189I FIELD NAME (COLUMNS 32-38) CONTAINS NON-ALPHABETIC CHARACTER IN FIRST POSITION. 
SPECIFICATION IS NOT PROCESSED. 

IES190I STERLING ENTRY (COLUMNS 71-74) MAY NOT RE SPECIFIED WITH CONSTANT OR PAGF(N). 
ENTRY OF BLANK IN COLUMNS 71-74 IS ASSUMED. 

IES191I STERLING ENTRY (COLUMNS 71-74) IS INVALID. ENTRY OF BLANKS IS ASSUMED. 

IES192I OUTPUT INDICATOR (COLUMNS 24-25,. 27-2B, CR 30-31) IS INVALID OR UNDEFINED. 
ENTRY OF LO IS ASSUMED. 

IES193I OUTPUT INDICATORS SHOULD START IN COLUMNS 23-25, THEN 26-28, AND FINALLY 29-31. 
ENTRY IS SHIFTED LEFT. 

IES194I 'NOT' (COLUMNS 23, 26, OR 29) IS NOT BLANK OR N. ENTRY OF N IS ASSUMED. 

IES195I WARNING - OVERFLOW INDICATOR IS SPFCIFIED IN 'AND 1 TYPE SPECIFICATION. RECORO 
WILL NOT BE PUT OUT AS OVERFLOW LINE. 

IES196I DECIMAL POSITIONS MUST BF ZERO FOR PAGE(N) FIFLD. ENTRY OF ZERO IS ASSUMED. 

IES197I SPECIFICATION TYPE CANNOT 3E DETERMINED. RECORD AND FIELD DEFINITIONS ARE 
SPECIFIED IN SAME LINE OR BOTH ARE BLANK. SPECIFICATION IS NOT PROCESSED. 

IES198I FORM TYPE (COLUMN 6) IS INVALID (NOT 0). SPFC IF ICAT ION IS NOT PROCESSED. 

IES199I NO OUTPUT INDICATOR (COLUMNS 24-25, 27-28, OR 30-31) IS SPECIFIED FOR 'AND' OR 
•0R» TYPE SPECIFICATION. SPECIFICATION IS NOT PROCESSED, 

IES200I FORM TYPE (COLUMN 6) IS INVALID OR OUT OF SEQUENCE. SPECIFICATION IS NOT 
PROCESSED. 

IES201I FILE DESCRIPTION SPECIFICATIONS ARE MISSING. COMPILATION IS ABORTED. 

IES202I WARNING - LINE COUNTER SPECIFICATION IS MISSING. 

IES203I PRIMARY FILE IS NOT SPECIFIED. EXECUTION IS DELETED, 

IES204I WARNING - FILE EXTENSION SPECIFICATION IS MISSING. 

IES205I FILENAME (COLUMNS 7-14) IS MULTI-DEFINED. SPECIFICATION IS NOT PROCESSED. 

IES206I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES2071 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES2081 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES209I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES210I WARNING - FILENAME (COLUMNS 7-14) IS DEFINED BUT NEVER USED. 

IES211I FILENAME HAS BEEN REFERENCED PRFVIOUSLY IN INPUT SPECIFICATIONS. SPECIFICATION 
IS NOT PROCESSED. 

IES212I RESULTING INDICATOR IS INVALID OR UNDEFINED. ENTRY OF LO IS ASSUMED. 

IES213I WARNING - RESULTING INDICATOR IS UNREFERENCED. 

IES214I FIELD NAME IS UNDEFINED. FIELD IS PROCESSED WITH ASSUMED LENGTH OF 004. 

IES215I WARNING - FIELD NAME IS MULTI-DEFINED. 

IES216I WARNING - FIELD NAME IS UNREFERENCED. 

IES217I THE COMBINED LENGTHS OF LITERALS AND FIELD NAMES EXCEEDS ALLOCATED CORE STORAGE. 
EXECUTION IS DELETED. 
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IES218I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES219I NO ERROR MESSAGE ASSIGNED FOR THIS NOTF. 

IES220I FILE SPECIFIED ON OUTPUT-FORMAT SPECIFICATIONS IS UNDEFINED OR NOT AN OUTPUT 
FILE <U, C, OR 0). ENTIRE FILE IS DELETED FROM PROCESSING. 

IES221I WARNING - FILENAME (COLUMNS 7-14) IS NOT REFERENCED ON OUTPUT SPECIFICATIONS. 

IES222I NO VALID OUTPUT SPECIFICATIONS ARE PRESENT. COMPILATION IS ABORTED. 

IES223I ALL OUTPUT LINES OF A PRINTER FILE MUST INDICATE SPACING AND/OR SKIPPING. 

SINGLE SPACING IS ASSUMED FOR ALL OUTPUT LINES OF NAMED FILE WHICH HAVE NO 
PRINT FUNCTION. 

IES224I STACKER SELECT MAY NOT 3E SPECIFIED WITH PRINT FILE. STACKER SELECT IS IGNORED 

AND SINGLE SPACING IS ASSUMED FOR ALL LINES OF NAMED FILE. 

IES225I PRINT OR PUNCH FUNCTION MAY NOT BE SPECIFIED FOR AN OUTPUT RECORD OF TAPE OR 

DISK FILE. STACKER SELECT, SPACING, OR SKIPPING IS IGNORED ON ALL RECORDS OF 
NAMED FILE. 

IES226I PRINT FUNCTION MAY NOT 3F SPFCIFIFD FOR OUTPUT RECORD OF PUNCH FILF. SPACE AND 
SKIP ENTRIFS ARE IGNORED FOR ALL RECORDS OF NAMED FILE. 

IES227I IMPROPER USE OF PACKING OR ZFRO SUPPRESSION ON ALPHAMERIC OR PACKED FIELD. 
ENTRY OF BLANK IS ASSUMED FOR IMVALID CODE. 

IES228I FND POSITION SPECIFIED FOR THE FIFLD IS GREATFR THAN THE RECORD LENGTH. ALL OR 
PART OF THF FIELD IS LOST, STARTING FROM RIGHTMOST POSITION. 

IES229I END POSITION IS LESS THAN THE FIELD LFNGTH. FIELD IS NOT PROCESSED. 

IES230I FIFLD TO BE EDITED IS GREATER THAN THF EDIT WORD. RIGHTMOST DIGITS WILL BE 
LOST. 

IES231I FIELD TO RE EDITED IS NOT NUMERIC NO FDITIMG IS PERFORMED. 

IES232I STERLING IS SPECIFIED FOR ALPHAMERIC FIELD. STFRLING IS IGNORED. 

IES233I STERLING SIGN POSITION IS SPECIFIED AS OTHER THAN NORMAL FOR PRINTED LINE. 

NORMAL POSITION IS ASSUMED. 

IES234I LOCATION FOR STERLING SIGN EXCEEDS RECORD LENGTH. NORMAL POSITION FOR SIGN IS 

ASSUMED. 

IES235I STERLING FIELD IS SPECIFIED WITH DECIMAL LENGTH GREATER THAN THREE. FIELD IS 

NOT PROCESSED. 

IES236I STERLING FIFLOS MAY BE EDITED ONLY FOR PRINT FILES. NO EDITING IS PERFORMED 

IES237I NUMBER OF LINES OF OUTPUT EXCEEDS THE CAPACITY OF RPG. MAXIMUM NUMBER IS 1023. 

EXECUTION IS DELETED. 

IES238I STERLING FIELD IS SPECIFIED WITH MORE THAN NINE POUNDS POSITIONS. LEFTMOST 
DIGITS WILL BE LOST. 

IES239I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES240I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES241I FILENAME IS NOT SPECIFIED AS ON FILE DESCRIPTION SPECIFICATION. SPECIFICATION 
IS NOT PROCESSED. 

IES242I CHANNEL 1 OR 12 IS MISSING OR INVALID. SPECIFICATION IS NOT PROCESSED. 

IES243I FILENAME IS NOT SPECIFIED AS AN OUTPUT FILE OR AN OUTPUT FILE REQUIRING A LINE 
COUNTER SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

IES244I LINE NUMBER OR CHANNEL NUMBER IS INVALID OR MISSING. SPECIFICATION IS NOT 
PROCESSED. 

IES245I CHANNEL NUMBER IS MULTI-DEFINED. SPECIFICATION IS NOT PROCESSED. 

IES246I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES247I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES248I COLLATING SEQUENCE (COLUMN 26 OF RPG CONTROL CARD) IS INVALID. ALTERNATE 
SEQUENCE IS ASSUMED. 
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IES249I NO ERROR MESSAGE ASSIGNED FDR THIS NOTE. 

IES250I END OF FILE HAS BEEN ENCOUNTERED IN INPUT STREAM PRIOR TO AN OUTPUT 
SPECIFICATION. COMPILATION IS ABORTED. 

IES251I NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

IES252I STERLING INPUT SPECIFICATION IS INVALID. IBM FORMAT IS ASSUMED. 

IES253I STERLING OUTPUT SPECIFICATION IS INVALID. IBM FORMAT IS ASSUMED. 

IES254I INVERTED PRINT ENTRY IS INVALID. ENTRY OF I IS ASSUMED. 

IES255I RPG CONTROL CARD IS MISSING. COMPILATION IS ABORTED. 
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APPENDIX H. CONDITIONS THAT AUTOMATICALLY TURN ON HALT INDICATOR (HO) 

The object program: 

• Read on input record that was not defined on the Input Specifications sheet (columns 21*41). 

e Found on input record out of the predetermined sequence of card types specified by the entry in Sequence (columns 15-16) on the Input Specifications sheet. 

e Found on input record out of sequence when the entry in Matching Fields (columns 61-62) on the Input Specifications sheet was used for sequence checking a single 
input file. 

e Encountered a chaining field in the chaining file that does not appear in the chained file during random processing of multiple input files. 

e Did not find a record with the correct key at the designated track address during random processing by record key of a directly organized file. 

e Did not find the record key that designates the lower limit (obtained from the RAF) during sequential processing between limits of an indexed-sequential file. 

e Found a wrong length record during processing of an indexed-sequential file. 

e Found an invalid length record (zero or too long) during random processing by record identification of a file on a DASD. 

e Found a difference between the key length of a DASD record in an indexed-sequential file and the length as specified in Length of Record Address Field 
(columns 29-30) on the File Description Specifications sheet during processing with RAF support (random, or between limits)! 

e Found a difference between the key length in the chained indexed-sequential file and the length as specified (columns 44-51) on the Input Specifications sheet 
during chaining of multiple input files. 

e Encountered a data check on the DASD during random processing of a directly organized file. 

e Encountered a DASD error during sequential or random processing of an indexed-sequential file. 

e Found a record identification outside the defined limits during random processing of a directly organized file. 

e Did not find keys in a directly organized file when the entry in Record Address Type (column 31) on the File Description Specifications sheet specified processing 
by key. 

e Did not find a record with the specified key during random processing of an indexed-sequential file. 

e Encountered an irrecoverable input/output error during processing of a sequential file. 

e Encountered an irrecoverable input/output error during processing of a combined file. 

NOTE: Unless the HO indicator is turned off by a SETOF Operatio n entry on the Calculation Specifications sheet (see Turning Indicators On or Off ) the program 
terminates before the next input record is read. 
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APPENDIX I. RPG COMPILER RETURN CODES 



NOTE 


RETURN 


NOTE 


RETURN 


NOTE 


RETURN 


NOTE 


RETURN 


NUMBER 


CODE 


NUMBER 


CODE 


NUMBER 


CODE 


NUMBER 


CODE 


000 


NA 


064 


12 


128 


4 


192 


4 


001 


8 


065 


4 


129 


4 


193 


4 


002 


8 


066 


NA 


130 


8 


194 


4 


003 


4 


067 


NA 


131 


8 


195 


4 


004 


8 


068 


NA 


132 


8 


196 


4 


005 


4 


069 


NA 


133 


4 


197 


8 


006 


4 


070 


NA 


134 


4 


198 


8 


007 


4 


071 


8 


135 


4 


199 


8 


008 


4 


072 


8 


136 


8 


200 


8 


009 


4 


073 


8 


137 


4 


201 


16 


010 


4 


074 


NA 


138 


4 


202 


4 


on 


4 


075 


NA 


139 


4 


203 


12 


012 


4 


076 


NA 


140 


4 


204 


8 


013 


4 


077 


12 


141 


4 


205 


8 


014 


4 


078 


4 


142 


4 


206 


NA 


015 


4 


079 


8 


143 


4 


207 


NA 


016 


4 


080 


8 


144 


4 


208 


NA 


017 


4 


081 


NA 


145 


4 


209 


NA 


018 


4 


082 


NA 


146 


4 


210 


4 


019 


4 


083 


4 


147 


4 


211 


8 


020 


4 


084 


NA 


148 


4 


212 


4 


021 


8 


085 


4 


149 


8 


213 


4 


022 


4 


086 


8 


150 


4 


214 


4 


023 


4 


087 


8 


151 


4 


215 


4 


024 


4 


088 


8 


152 


NA 


216 


4 


025 


8 


089 


8 


153 


NA 


217 


12 


026 


NA 


090 


8 


154 


NA 


218 


NA 


027 


4 


091 


4 


155 


NA 


219 


NA 


028 


8 


092 


4 


156 


NA 


220 


8 


029 


NA 


093 


4 


157 


NA 


221 


4 


030 


8 


094 


4 


158 


NA 


222 


16 


031 


8 


095 


4 


159 


8 


223 


4 


032 


8 


096 


4 


160 


8 


224 


4 


033 


4 


097 


8 


161 


8 


225 


4 


034 


8 


098 


4 


162 


4 


226 


4 


035 


4 


099 


8 


163 


4 


227 


4 


036 


8 


100 


8 


164 


4 


228 


4 


037 


8 


101 


4 


165 


4 


229 


8 


038 


4 


102 


4 


166 


4 


230 


8 


039 


8 


103 


4 


167 


8 


231 


4 


040 


8 


104 


4 


168 


4 


232 


4 


041 


4 


105 


4 


169 


4 


233 


4 


042 


8 


106 


8 


170 


8 


234 


4 


043 


4 


107 


4 


171 


4 


235 


8 


044 


4 


108 


8 


172 


4 


236 


4 


045 


8 


109 


NA 


173 


8 


237 


12 


046 


4 


110 


8 


174 


8 


238 


8 


047 


4 


111 


8 


175 


4 


239 


NA 


048 


4 


112 


8 


176 


4 


240 


NA 


049 


4 


113 


8 


177 


4 


241 


8 


050 


4 


114 


8 


178 


4 


242 


8 


051 


4 


115 


8 


179 


8 


243 


8 


052 


8 


116 


8 


180 


4 


244 


8 


053 


NA 


117 


8 


181 


8 


245 


8 


054 


4 


118 


4 


182 


4 


246 


NA 


055 


NA 


119 


4 


183 


4 


247 


NA 


056 
057 


NA 


120 


4 


184 


8 


248 


4 


NA 


121 


4 


185 


8 


249 


NA 


058 


NA 


122 


4 


186 


4 


250 


16 


059 


NA 


123 


4 


187 


8 


251 


NA 


060 


NA 


124 


4 


188 


8 


252 


4 


061 


4 


125 


4 


189 


8 


253 


4 


062 


4 


126 


4 


190 


4 


254 


4 


063 


12 


127 


4 


191 


4 


255 


16 



Appendix I. RPG Compiler Return Codes 193 



INDEX 



Absolute compare routine 64 , 65 

ADD 59, 69 

Add, operation 59, 6 9 

Addition and Subtraction 6 

Alphabetic characters in RPG 31, 36 

Alphameric field length 42 

Alphameric literals, forming 58 

Alphameric literals, output 86 

Alternate collating sequence 51, 148 

Alternating arguments and functions 

101, 104, 109 

Ampersand, & 39 

Ampersand, edit word 87 

AND relationship 40, 79, 178, 181 

Apostrophe symbol 58 

Argument 102, 10 4 

Arithmetic Operations 59, 72, 181 

Asterisk protection 88 

At sign, @ 31, 36 

Automatic skipping 77, 89 

Blank After 11, 82, 182 

Blank after, effect of 53, 72 

Block Length 93, 175 

Blocking records 116 

Body, edit word 86 

Branching and Exit operations 59, 6 4 

Branching or GOTO 59, 66, 69, 114.1 

BSI format 148, 173 



55, 180 



89, 178 



49, 92 
51, 148 



C/Z/D 5, 39, 179 

Calculations Specifications sheet 

Calculations, when performed 55 

Cataloged procedures 144 

Chaining 131 

Chaining Fields 51, 179 

Chaining fields, split 133 

Channel Number (1) (Line Counter) 

Character 5, 40, 179 

Checking Sequence 2 4 

Checking sequence of input files 

Collating sequence, alternate 

Combined file 91 

Common fields 33, 175 

Comments 72, 98, 102, 176, 178, 181 

Comments, * column 7 34, 175 

COMP 59, 63, 69 

Compare — Equal 63, 181 

Compare — High 63, 181 

Compare — Low 63, 181 

Compare Operations 59, 63, 69, 72, 181 

Comparison of two fields 21 

Compatability 1 

Compiler options 139 

Compiler output 140 

Compiler processing 138 

Compiler return codes 141, 193 

CONTD 12 3 

Control card 148, 172 - 

Control Fields 8 

Control Level — Calculation 55, 180 

Control Level — Input 8, 47, 179 

Control-field holding area 48 



Constant or Edit Word 86, 182 

Constants 86 

Conversion of chaining fields 134 

Conversion Operation codes 123 

Conversion routine, RAF 123 

Conversion routine operation codes 174 

Conversion routine operations 59 

CR symbol, edit word 87 

Creating record-address files 124 

Creating table records 10 5 

Cross -References 

Appendix D 172 

Appendix H 192 

Cataloged procedures 144 

Chaining 131 

Creating record-address files 12 4 

Disk storage concepts 115 

Executing RPG-input stream 

variations 149 

Exit to a subroutine 111 

Field location 42 

Halt Indicators 52 

Load module execution 142 

Matching fields 49 

Output-Format Specifications sheet 75 

Overriding cataloged procedures 146 

Problem definition 29 

Processing multiple input files 127 

Processing single input files 120 

Records in an OR relationship 44 

RPG Specifications sheets 31 

Sample program one 152 

Sample program two 15 8 

Turning indicators On or Off 6 7 

Using cataloged procedures 146 

Using exit routines in object module 104 

Using tables in the object module 104 

Using the calculation sheet 72 

Using the matching fields specification 

for sequence checking 49 

Variable-length records 116 

Data Files 115 

Deck arrangement 14 8 

Decimal Positions-Calculation 70, 180 

Decimal Positions-File Extension 101, 177 

Decimal Positions-Input 7, 44, 179 

Decimal symbol location 7 

Defining indicators 52, 71 

Defining the problem 29 

Describing a record 4 

Detail and total printing 10 

Detail printing 7 

Detail records 76 

Detail time 2 8 

Detail-to-Total Branch 114.1 

Device 96, 176 

Digit record identification 40 

Direct files 118 

Direct organization 117, 119 

Direct organization, processing 119, 122 

Disk storage concepts 115 

DIV 59, 60, 69 
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36 



69 

8, 82, 182 



111 
51 



Divide, operation 59, 60, 69 

Division 22 

Dollar sign 31, 36, 87 

Edit words 86 

Embedded blanks, definition of 

End of File 92, 175 

End of RPG conversion 59, 68, 

End Position in Output Record 

ERPGC 59, 68, 69, 174 

Executing RPG 149 

EXIT 59, 64, 69 

Exit operations 64 

Exit to a user's subroutine 69, 104, 

Exit to external translate subroutine 

EXTCV 59, 68, 69 

Extension Code 89, 96, 176 

Extent area 115 

Extent Exit for DAM 176 

External conversion routine 59, 66, 69, 123 

Factor 1 58, 180 

Factor 2 58, 180 

Field description, input 35, 42 

Field description, output 80 

Field indicators 19, 52, 179 

Field Length 6, 70, 180 

Field length, maximum 42 

Field location 42, 179 

Field Name-Input 9, 46, 179 

Field Name-Output 8, 80, 182 

Field-Record relation 44, 48, 51, 179 

Field status conditions 52 

Fields, exit routines 112 

File Description Specifications Sheet 91,175 

File Designation 92, 175 

File Extension Specifications Sheet 99, 177 

File Format 93, 175 

File identification and control, 

output 75 

File organization 116 

File processing 117 

File Processing, summary 136 

File Type 91, 175 

Filename — File Description 91, 175 

Filename — Input 91, 178 

Filename — Line counter 89, 178 

Filename — Output 13, 75, 181 

Files, maximum number of 91 

Fixed dollar sign 87 

Fixed-length records 115 

Floating dollar sign 87 

Flowcharts, logic 169 

Form Type 34, 175 

Forming tables, rules for 10 4 

From: Field Location 42, 179 

From Filename 100, 177 

Function, table operations 102, 104 

Function of RPG 1 

Fundamentals of RPG programming 4 

GOTO 59, 66, 69, 114.1 
Group indication 12 



Group printing 12 

Half Adjust 23, 71, 181 

Halt indicators 52, 192 

Heading records 76 

Holding area, control-field 4 8 

Holding area, table 68, 107, 113 

HO indicator 36, 53, 192 



IBM format 148, 173 

ID field 123 

Indexed-sequential files 117, 120 

Indexed-sequential organization 116 

Indicator chart (Appendix B) 16 8 

Indicators 6, 56, 180 

Indicators, exit routine 112 

Input file 91 

Input record sequence 35 

Input Specifications sheet 

Input stream 149 

Inverted print 144, 148 



35, 172, 178 



Job control language symbolic parameters 146 
Job processing 138 
Justifying field entries 31 



KEYCV 59, 68, 69, 174 

Key field 123 

Key Field Starting Location 



96, 176 



Label for GOTO 66, 69 

Label options in RPG 9 8 

Labels 98, 176 

Last record indicator 56 

Left- justification 31 

Length of Record Address Field 95, 176 

Length of Table Entry 101, 177 

Level Zero Indicator 56 

Line 34, 175 

Line Counter Specifications sheet 89, 178 

Line-identification code 29 

Line Number (1) , (Line Counter) 89 , 178 

Linkage Editor processing 140 

Linkage Field, table 112 

Literal 58 

L0 indicator 56 

Load module execution 142 

Load module return codes 14 3 

Logic flowcharts 169 

Logic, program 2 8 

Logical file 115 

LOKUP 59, 67, 69, 107, 181 

LR indicator 56 



Ml, M2, M3 49 
Machine features required 2 
Matching-field holding area 49 
Matching Fields or Chaining Fields 
Matching Record indicator 57, 128 
Methods of Processing Tables 107 
Minus-Calculations 71, 181 



49, 179 



Index 
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Minus-input 52, 179 

Minus symbol, edit word 87 

Minus test 18 

Minus symbol, edit word 87 

Minus test 18 

Minus zone 39 

Move Operations 59, 61, 69 

High- to-High (MHHZO) 63, 69 

High-to-Low (MHLZO) 62, 69 

Low-to-High (MLHZO) 62, 69 

Low- to-Low (MLLZO) 62, 69 

Move (MOVE) 61, 69 

Move Left (MOVEL) 61, 69 

Move Remainder (MVR) 60, 69 
Mode of Processing 95, 176 
MR indicator 57, 128 
MULT 59, 60, 69 
Multiple input files 127 
Multiple printers 78, 86 
Multiplication and Division 22 
Multiply, operation 59, 60, 69 

Name of Label Exit 98, 176 

No zone 39 

Not 5, 39, 179 

Number 25, 37, 178 

Number of the Chaining Field 99, 177 

Number of files allowed 91 

Number of Table Entries per Record 101, 177 

Number of Table Entries per Table 101, 177 

Numbering pages 84 

Numeric field maximum length 42 

Numeric field format 31, 112 

Numeric literals, forming 5 8 



Object module sequence 140 

Object module cancellation 142 

Omitting record identification 41 

Operation 59, 180 

Option 25, 37, 178 

OR relationship 41, 79, 178, 181 

Output Deck 140 

Output file 91 

Output-Format Specifications Sheet 

75, 172, 181 

Output Indicators 7, 78, 80, 182 

Output Listing 140 

Output Units, specifying 75 

Overflow indicator 77, 96, 176 

Overflow printing 13 

Overflow, printing lines conditioned by 77 

Overriding statements in cataloged 

procedures 146 



Packed Field — Output 84, 182 
Packed — File Extension 101, 177 
Packed Format, Exit subroutine 112 
Packed — Input 42, 179 
Page 33, 175 
Page numbering 84 
Pence-format fields 173 
Physical unit 115 
Plus-Calculations 71, 181 



Plus-Input 52, 179 

Plus test 18 

Plus zone 39 

Position 5, 39, 179 

Pound sign # 31, 36 

Pound sterling formats 173 

Printer spacing chart 29 

Printing lines conditioned by overflow 77 

Problem definition 29 

Processing multiple input files 127 

Processing single input files 120 

Processor Control card 148 

Program identification 34, 149, 175 

Program logic 28 

Providing a label for GOTO 59, 66, 69 

Random processing 117 

Random processing, indexed-sequential 

files 117, 121 

Record, definition of 115 

Record Address File (RAF) 124 

Record Address Type 95, 176 

Record formats 9 3 

Record identification 35, 36 

Record identification, omitting 41 

Record Identification Codes 5, 39, 178 

Record key 59 , 67, 69 

Record Length 95, 176 

Record Sequence of the Chaining File 99,177 

Records in an OR-relationship 41,79,178,181 

Registers, use of 112 

Required features 2 

Result Field 6, 8, 70, 180 

Resulting Indicator — Input 5, 37, 178 

Resulting Indicators — Calculation 21,71,181 

Retrieving updated tables 106 

Return codes, compiler 141, 193 

Return codes, load module 14 3 

Right- justification 31 

RLABL 59, 66, 69, 111 

RPG Control Card 148 

RPG conversion 59, 68, 69 

RPG Source Program Deck Arrangement 14 8 

RPG Label 59, 68, 69 

RPG logic flow 169 

RPG specification sheets 31 

RPGCV 59, 68, 69, 174 

Rules for DASD specifications 95 

Sample programs, (Appendix A) 

1, 152 

2, 158 

3, 162 

Search argument, table operations 107 
Sequence checking 24 
Sequence checking, matching field 49 
Sequence checking of input files 92 
Sequence — File Description 92, 175 
Sequence — File Extension 101, 177 
Sequence — Input 36 , 178 
Sequence of Input records 24, 35, 9 3 
Sequential organization 116 
Sequential processing 117, 120 
Sequential processing, multiple input 
files 127 
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Set indicators, 

off 67 

on 6 7 
SETOF 59, 67, 69, 181 
SETON 59, 67, 69, 181 
Skip-After 77, 182 
Skip-Before 77, 182 
Skipping, automatic 77, 89 
Source deck arrangement 148 
Space-After 7, 77, 181 
Space-Before 77, 181 
Spacing chart, printer 29 
Special holding area (table operations) 
Specifying output units 75 
Specifying the kind of calculation 5 8 
Split chaining fields 133 
Split control fields 4 8 
Stacker Select — Input 5, 41, 179 
Stacker Select — Output 15, 76, 181 
Status, edit word 86 
Sterling routines 31, 172 
Sterling Sign Position — Input 53, 180 
Sterling Sign Position — Output 88, 182 
SUB 59, 69 

Subtract, operation 59, 69 
Subtraction 6 

Summary of file processing 136 
Summary of RPG specification 
(Appendix F) 175 
Summary punching 14 
Supported Features 2 
Symbolic Device 176 
Symbolic parameters, job control 

language 146 



68 



TESTZ 59, 64, 69, 181 

Test Zone, operation 59, 64, 69, 181 

To: Field location 42, 179 

To Filename 100, 177 

Total calculations 9 

Total printing 9 

Total records 76 

Total time 2 8 

Translate subroutine 51, 149 

Turning indicators On or Off 59, 67 

Type H/D/T 7, 76, 181 

Type of File Organization 95, 176 

ULABL 59, 66, 69, 112 

Unpacked format 31, 42 

Update file 91 

Updated tables, retrieving 106 

Updating a DASD file 136 

Use of field indicators 5 3 

Use of registers 112 
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